（XD::List:RemoveDup）表消除重复的元素

newer

1. (defun XD::List:RemoveDup ( lst / foo index )
   
2.     (defun foo (x)
   
3.         (cond
   
4.             ((vl-position x index))
   
5.             ((null (setq index (cons x index))))
   
6.         )
   
7.     )
   
8.     (vl-remove-if
   
9.        'foo
   
10.         lst
    
11.     )
    
12. )
    

(defun XD::List:RemoveDup ( lst / foo index )<br />     (defun foo (x)<br />         (cond<br />             ((vl-position x index))<br />             ((null (setq index (cons x index))))<br />         )<br />     )<br />     (vl-remove-if<br />        'foo<br />         lst<br />     )<br /> )<br />

Linhay

谢谢楼主分享

1121443108qaz

(setq plist '((1 8)(1 8)(1 7)(1 6)(1 6)(1 6)(1 5)(1 8)(1 8)(1 7)))
比如说我要得到的j是（1 8）（1 7）（1 6）（1 5）（1 8）（1 7）

用这个函数得到的结果是((1 8) (1 7) (1 6) (1 5))

376394482

谢谢楼主分享！               .