[求助]：请教：删除表中重复项？

TYEEXDD

请问高手们有没有什么函数或方法把一个表内的相同项都删除，只剩下其中之一？

比如：'((1 . "abc") (2 . "123") (1 . "abc") (3 . "dfe") (1 . "abc"))

要得到：'((1 . "abc") (2 . "123") (3 . "dfe")) （先后排列顺序不限）

请大家赐教，先谢了！

qjcpj

;;;                                                                       
;;;  函数名：hy_listdoublep                                               
;;;  功  能：                                                            
;;;         删除列表中相同的元素                                          
;;;           _$ (setq lst '("3" "2" "6" "5" "2" "2" "7" "2" "1"))        
;;;              ("3" "2" "6" "5" "2" "2" "7" "2" "1")                    
;;;           _$ (hy_listdoublep lst)                                    
;;;              ("3" "2" "6" "5" "7" "1")                                
;;;                                                                       

(defun hy_listdoublep (lip / ulist)
        (setq ulist nil)
        (foreach        item lip
                (if (and        (member item lip)
                                        (not (member item ulist))
                         )
                        (setq ulist (cons item ulist))
                )
        )
        (reverse ulist)
)

;;;                                                                       
;;;  函数名：LstDelSame                                                   
;;;  功  能：                                                            
;;;         删除列表中的相同元素(保留一个)并返回新表，hy_listdoublep      
;;;         函数的另一种写法                                             
;;;                                                                       
;;;  调用示例：                                                           
;;;  _$ (LstDelSame '(1 2 1 1 2 3 2))                                    
;;;  (1 2 3)                                                              
;;;                                                                       

(defun LstDelSame        (lst / x nl)
        (foreach        x lst
                (if (not (member x nl))
                        (setq nl (cons x nl))
                )
        )
        (reverse nl)
)

TYEEXDD

谢谢长老！程序很好用，两个都能满足功能，多谢您热心解答！
学习，致谢。

kainanun

爱心分难挣啊

c3a139

这个不错收下，谢谢

leon90482888

去除表中重复元素的好程序，纯lisp的，效率比用递归算法的高