[求助]如何用一简单的程序实现删除表中多余的相同项

jxlsp

如何用一简单的程序实现删除表中多余的相同项,如(1  2   2  3  2)->(1  2  3)

caoyin

(defun lt:list-remove-r (lst / a lst2)
  (while (setq a (car lst) lst2 (cons a lst2) lst (vl-remove a lst)))
  (reverse lst2)
)

sailorcwx

(vl-sort '(1 2 2 3 2) '<)

jxlsp

谢谢,可是有小数点就不行.

(vl-sort '(1  2.1  2.1  3 ) '<)还是不行

jxlsp

第 3 楼不错,可是只适用于整数,还有简单的吗?

sailorcwx

 (setq lst2 '())
(mapcar '(lambda(x) (if (not (member x lst2))(setq lst2 (append lst2 (list x))))) lst1)

其实和2楼的原理一样的。

jxlsp

谢谢两位