Question

在LISP中，如何删除一个表中指定位置的元素？

比如：(2 5 7 9)--->(2 7 9)

Answer 1

;|
删除表中指定的元素
($xdlsp_list_remove '(54 5 67 7) 5)--->(54 67 7)
|;
(defun $xdlsp_list_remove (el val)
(if (member val el)
(append
(reverse (cdr (member val (reverse el))))
(cdr (member val el))
)
el
)
)

其实，主要是表的操作函数，你用好reverse会解决很多问题。

Answer 2

;|
删除表中指定的元素
($xdlsp_list_remove '(54 5 67 7) 5)--->(54 67 7)
|;
(defun $xdlsp_list_remove (el val)
(if (member val el)
(append
(reverse (cdr (member val (reverse el))))
(cdr (member val el))
)
el
)
)
其实，主要是表的操作函数，你用好reverse会解决很多问题。

Answer 3

点击要删除内容删除即可。