重复数据合并的问题

spring

BDYCAD发表于2004-9-30 17:22:00重復数据列表应该是如下方式所示吧 ( 1 1 1 3 5 4 6 ) ====> (1 1 1 )

(defun c:aa (/ lst ret cur)
(setq lst (list 1 2 3 4 3 4 5 2 3 5 1 3 2 1) ;测试表
)
(setq ret nil) ;建立空白表
(while (setq cur (car lst)) ;循环测试表
(if (assoc cur ret)
(setq
ret (subst (append (assoc cur ret) (list cur))
(assoc cur ret)
ret
)
)
(setq ret (cons (list cur) ret))
)
(setq lst (cdr lst))
)
(setq ret (reverse ret))
(princ)
ret
)
;;; return: ((1 1 1) (2 2 2) (3 3 3 3) (4 4) (5 5))