如何将表内相同的元素只保留一个?

peng197806

如何搜索表内相同的内容,删除相同的，只保留一个?



比如有一个表'("a" "b" "c" "d" "e" "d" "d" "f" "a" "d")


现在想表里相同的元素只留一个,就是变成'("a" "b" "c" "d" "e" "f")


该怎么弄啊?请大家指教.,谢谢

peng197806

这个问题经人指点我已经解决了。不用回贴了，程序是这样的，里面有很不当之处欢迎大家指正： (defun c:test1()
(setq listaad '("a" "b" "c" "c" "a" "a" "e" "d" "e" "d" "f" "f" "g" "g" "g" "a") )
(setq enlist (tstt listaad))
(setq elist (vl-sort enlist '<))
)
;*****************************tstt********************************* (defun tstt(lst / ntl)
(setq ntl nil)
(mapcar
'(lambda(x)
(if (not (member x ntl))
(setq ntl (cons x ntl))
)
)
lst
)
(reverse ntl)
)

mkhsj928

(defun m_dela(/ m_list m_list1)
(setq m_list '("a" "b" "c" "c" "a" "a" "e" "d" "e" "d" "f" "f" "g" "g" "g" "a"))
(setq m_list '((1 2) (3 4) (5 6) (3 4) (7 8) (5 6) (10 11) (1 2) (12 14)(10 11)))
(setq m_list1 nil)
(mapcar '(lambda(x)
(if (not (member x m_list1))
(setq m_list1 (cons x m_list1))
)
)
m_list
)
(setq m_list (reverse m_list1))
)