清除表中重复元素

Lisphk

1. (defun unique (l)
   
2.   (if l
   
3.     (cons (car l)
   
4.           (unique
   
5.             (vl-remove-if '(lambda (x) (equal x (car l) 1e-6)) l)
   
6.           )
   
7.     )
   
8.   )
   
9. )
   

(defun unique (l)<br />   (if l<br />     (cons (car l)<br />           (unique<br />             (vl-remove-if '(lambda (x) (equal x (car l) 1e-6)) l)<br />           )<br />     )<br />   )<br /> )<br />

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

命令: (UNIQUE a)
(1 2 3 4)

kqqt6236

谢谢分享！

konglong604

谢谢大师分享实用的函数.

lg328084985

新人学习一下。

caddog

递归啊，一直有点晕这个呢。学习了：）

sicky111

我收藏了。