删除表中的一个元素

marting

1. (defun remove (expr lst)
   
2.   (apply 'append (subst nil (list expr) (mapcar 'list lst)))
   
3. )
   

(defun remove (expr lst)<br />   (apply 'append (subst nil (list expr) (mapcar 'list lst)))<br /> )<br />

下面是测试代码：

1. (defun c:tt ()
   
2.   (setq ssg1 '((5 10) (15 20)))
   
3.   (setq ssg '((5 10) (15 20) (25 30) (35 40)))
   
4.   (foreach p ssg1
   
5.     (setq ssg (remove p ssg))
   
6.   )
   
7.   (prin1 ssg)
   
8.   (prin1)
   
9. )
   
10. 
    

(defun c:tt ()<br />   (setq ssg1 '((5 10) (15 20)))<br />   (setq ssg '((5 10) (15 20) (25 30) (35 40)))<br />   (foreach p ssg1<br />     (setq ssg (remove p ssg))<br />   )<br />   (prin1 ssg)<br />   (prin1)<br /> )<br /> <br />

神秘将军

66666

HLCAD

大师，也可以这样：
(defun remove (expr lst)
;  (apply 'append (subst nil (list expr) (mapcar 'list lst)))
  (vl-remove 'nil (subst nil expr lst))
)

pengfei2010

我测试了一下，比自带的vl-remove 效率慢5倍呢

sicky111

楼上是怎么测试的？