(XD::List:RemoveE1)删除表中指定的元素

Lispboy

1. ;删除表中指定的元素
   
2. (defun XD::List:RemoveE1(item lst)
   
3.    (append (reverse (cdr (member item (reverse lst))))(cdr (member item lst)))
   
4. )
   
5. 
   

;删除表中指定的元素<br /> (defun XD::List:RemoveE1(item lst)<br />    (append (reverse (cdr (member item (reverse lst))))(cdr (member item lst)))<br /> )<br /> <br />

ayl1004

指定的ITEM在表里不只一个的时候是错的，如果表里不含这个元素时，也是错的

lijiao

_$ (XD::LIST:REMOVEE1 1 '(1 1 2 1 2 3))
(1 1 2 1 2 1 2 3)
_$ (vl-remove 1 '(1 1 2 1 2 3))
(2 2 3)
_$

Lispboy

ayl1004 发表于 2013-11-13 02:02
指定的ITEM在表里不只一个的时候是错的，如果表里不含这个元素时，也是错的

谢谢指正，昨晚写插件时候用到删除关联表时候写的，我会完善下。

原地踏步

这个函数与vl-remove有什么区别？