请问如何将一个表中有重复的元素去掉

cofw

有的表里有很多是重复的,我想每个元素只留一个就行了,重复的去掉,我用了vl-sort,可是这个函数对字符型是无效的.我不需要对表排序,请教教我如何能做到.

谢谢

lockmyeye

2. ;;测试
3. ;; (Test '(1 2 1 2 (1 1) (1 2) (1 1) (1 2)))
4. (defun Test (Lst / LstNew)
5.   (foreach _LstItem Lst
6.     (if (not (member _LstItem LstNew))
7.       (setq LstNew (append LstNew (list _LstItem)))
8.     )
9.   )
10.   LstNew
11. )

;;测试 ;; (Test '(1 2 1 2 (1 1) (1 2) (1 1) (1 2))) (defun Test (Lst / LstNew)   (foreach _LstItem Lst     (if (not (member _LstItem LstNew))       (setq LstNew (append LstNew (list _LstItem)))     )   )   LstNew )

Ea

http://p4.xdcad.net/forum/forumdisplay.php?s=&forumid=50

cofw

谢谢二楼,这个真好用,而且还学会了foreach的使用

pop159

谢谢