[LISP程序]：如何删除表的重复项？

fango

如何删除表的重复项？比如有一表，((1005."6B") (1005."4D") (1005."3G") (1005."6B") ...)，表内有一项到几项重复，VLISP里有什么函数可以删除它们？

aeo

(setq li '())
(foreach  x  '((1005."6B") (1005."4D") (1005."3G") (1005."6B") ...)
(if(not(member x li)(setq li(cons x li)))
)(reverse li)

eachy

2. 
   
3. _$ (vl-sort '(1 2 3 1 2 3 12) '/=)
   
4. (12 3 2 1)

<br /> _$ (vl-sort '(1 2 3 1 2 3 12) '/=)<br /> (12 3 2 1)

aeo

最初由 eachy 发布
[B]

2. 
   
3. _$ (vl-sort '(1 2 3 1 2 3 12) '/=)
   
4. (12 3 2 1)

<br /> _$ (vl-sort '(1 2 3 1 2 3 12) '/=)<br /> (12 3 2 1)

[/B]

(vl-sort '(1 2 3 1 2 3 12) '>)  -->(12 3 2 1)

前面讨论过的,vl-sort对整数去掉重复项的,对表不行的.
况且他不一定要改变顺序.

fango

最初由 eachy 发布
[B]

2. 
   
3. _$ (vl-sort '(1 2 3 1 2 3 12) '/=)
   
4. (12 3 2 1)

<br /> _$ (vl-sort '(1 2 3 1 2 3 12) '/=)<br /> (12 3 2 1)

[/B]

Thank you very much!!!all of you do help me a lot.

aeo

最初由 fango 发布
[B]


Thank you very much!!!all of you do help me a lot. [/B]

vl-sort对你说不行:
(setq li '((1005 . "6B") (1005 . "4D") (1005 . "3G") (1005 . "6B")(1005 .
"3G")))
(vl-sort li '/=)
-->((1005 . "3G") (1005 . "6B") (1005 . "3G") (1005 . "4D") (1005 . "6B"))

如果已经符合你的要求,那最好.