删除表重复的元素

marting

1. (defun remove_doubles (lst /)
   
2.   (if lst
   
3.     (cons (car lst) (remove_doubles (vl-remove (car lst) lst)))
   
4.   )
   
5. )
   

(defun remove_doubles (lst /)<br />   (if lst<br />     (cons (car lst) (remove_doubles (vl-remove (car lst) lst)))<br />   )<br /> )<br />

命令: (setq a '(1 2 43 3 2 3 1))
(1 2 43 3 2 3 1)

命令: (REMOVE_DOUBLES a)
(1 2 43 3)

命令: (setq b (list 1 "ab" '(2 3 "3") "ab" '(2 3 "3")))
(1 "ab" (2 3 "3") "ab" (2 3 "3"))
命令: (REMOVE_DOUBLES b)
(1 "ab" (2 3 "3"))

命令: (setq c (list (/ pi 3) 34 (/ pi 3)))
(1.0472 34 1.0472)
命令: (REMOVE_DOUBLES c)
(1.0472 34)

yoyoho

谢谢! marting 分享程序!

HLCAD

太经典! 十分佩服楼主的才识！

ll_j

这段代码使用了递归，对于数据量比较大的情况，运行时间比较长，并且还可能有迭代层数限制（约20000层）。
为了测试本段代码是否受迭代层数限制，特构建一个超大表：

1. (setq i   0
   
2.       lst nil
   
3. )
   
4. (repeat 20000
   
5.   (setq lst (cons i (cons i lst))
   
6.         i   (1+ i)
   
7.   )
   
8. )

(setq i   0<br />       lst nil<br /> )<br /> (repeat 20000<br />   (setq lst (cons i (cons i lst))<br />         i   (1+ i)<br />   )<br /> )

运行(remove_doubles lst)，acad超时死机，没有得出结论。

根据你的代码，改写了一段：

1. (defun remove_doubles1 (lst / a lst1)
   
2.   (while
   
3.     (setq a   (car lst)
   
4.           lst (vl-remove a lst)
   
5.     )
   
6.      (setq lst1 (cons a lst1))
   
7.   )
   
8.   (reverse (cons a lst1))
   
9. )

(defun remove_doubles1 (lst / a lst1)<br />   (while<br />     (setq a   (car lst)<br />           lst (vl-remove a lst)<br />     )<br />      (setq lst1 (cons a lst1))<br />   )<br />   (reverse (cons a lst1))<br /> )

运行(car (remove_doubles1 lst))，返回19999，结果正确，速度也还可以接受。

newer

ll_j 发表于 2017-4-1 10:40

递归变迭代了，好

aeo

普通循环比递归要快很多，测试过的

newer

aeo 发表于 2017-4-1 11:35

空间换时间的，各有利弊，看具体应用场合了。

aeo

newer 发表于 2017-4-1 11:45

递归一般既不省空间，也不省时间

dyjwyqz5221

经测试，还是(XD::List:RemoveDup lst)快

majian_lmx

好帖，学习！