问个删除表最后一个元素的问题！请朋友解答下！(已完结)

simon8001 · 发表于 2011-6-13 11:38

本帖最后由 simon8001 于 2011-6-14 09:18 编辑

(defun c:ff()
(setq sxb (list(list"S1" "26") (list"09" "20") (list"09" "26") (list"09" "20") (list"10" "26") (list"10" "20") (list"10" "26")
(list"10" "20") (list"19" "26") (list"S" "") (list"10" "20") (list"10" "26") (list"10" "20") (list"10" "26")
(list"11" "20") (list"11" "26") (list"10B" "20") (list"11A" "26") (list"11B" "20") (list"11A" "26") (list"" "")))
(setq n-sxb (length sxb))
(setq bb(nth (- n-sxb 1) sxb))
(if (= bb '(list "" ""))
(progn (setq sxb(vl-remove bb sxb))
(setq n-sxb-2(- n-sxb 1))))
)

如题，删除表中最后一个元素，vl-remove这个命令应该不对呀！可是我没查到？希望朋友们帮着解答一下！！

Andyhon · 发表于 2011-6-13 11:47

simon8001 · 发表于 2011-6-13 11:55

回复 Andyhon 的帖子

我看到过这个讨论，我想知道是不是有直接的删除命令呀，原来我的书上看到过“dnr” 可在lisp试过这个不是命令！！

Andyhon · 发表于 2011-6-13 12:13

Gu_xl · 发表于 2011-6-13 12:16

回复 simon8001 的帖子

(reverse (cdr (reverse lst)))

simon8001 · 发表于 2011-6-13 13:46

回复 Gu_xl 的帖子

我知道了谢谢！！

simon8001 · 发表于 2011-6-13 13:47

回复 Andyhon 的帖子

谢谢你！多亏了我英语过了6级，不然还真是有点看不懂呢呵呵！！

198526 · 发表于 2011-6-13 17:28

这跟英语也有关系，我的英语全部还给老师了

simon8001 · 发表于 2011-6-14 09:26

回复 198526 的帖子

教完学费，学完英语，英语还回去了，钱可不给我们退回来！！

露草 · 发表于 2012-4-12 19:02

多转换一次用LISP函数也可以啊

账号		自动登录	找回密码
密码			注册

[讨论] 问个删除表最后一个元素的问题！请朋友解答下！(已完结)