表中重复元素查找及去除（非递归）

llsheng_73

1. (defun same(l1 / l2);;;查找表中重复元素
   
2.   (while l1(if(member(car l1)(cdr l1))(setq l2(append l2(list(car l1)))))(setq l1(vl-remove (car l1)l1)))
   
3.   l2)
   
4. (defun desame(l1 / l2);;;表中去除
   
5.   (last(mapcar'(lambda(x)(vl-remove x l1))(same l1)))
   
6.   )

(defun same(l1 / l2);;;查找表中重复元素<br />   (while l1(if(member(car l1)(cdr l1))(setq l2(append l2(list(car l1)))))(setq l1(vl-remove (car l1)l1)))<br />   l2)<br /> (defun desame(l1 / l2);;;表中去除<br />   (last(mapcar'(lambda(x)(vl-remove x l1))(same l1)))<br />   )

;;;(setq l1'(1 2 3 3 3 5 6 8 8 6))
;;;(SAME l1)
;;;(3 6 8)
;;;(desame l1)
;;;(1 2 5)

lianghui2018

学习，谢谢楼主分享

kkt123

学习，谢谢楼主分享:loveliness: