一个表内元素两两比对，并返回元素重复的表

dyjwyqz5221

如：(setq lst  '（1 2 2 3 1 3 5 2 5 5 7))
结果：'(1 3 3 5)

Lisphk

(setq lst '(1 2 2 3 1 3 5 2 5 5 7) lst1 nil)
(while (setq e (car lst))
  (if (not (member e (setq lst (cdr lst)))
           )
    (setq lst1 (cons e lst1))
  )
)
(reverse lst1)

(1 3 2 5 7)

(setq lst '(1 2 2 3 1 3 5 2 5 5 7) lst1 nil)
(while (setq e (car lst))
  (if (and (member e (setq lst (cdr lst)))
           (not (member e lst1)))

    (setq lst1 (cons e lst1))
  )
)
(reverse lst1)

(1 2 3 5)

dyjwyqz5221

返回结果写错了，应为'(1 2 3 5)

dyjwyqz5221

(defun tt(lst / lst1)
                                (setq lst1 lst)
                                (mapcar
                                        '(lambda (x)
                                                (setq lst1 (XD::List:RemoveE x lst1 nil))
                                        )
                                        (XD::List:RemoveDup lst)                       
                                 )
                                (XD::List:RemoveDup lst2)
                        );;;defun

dyjwyqz5221

(XD::List:RemoveDup lst2)改为 (XD::List:RemoveDup lst1)

Lisphk

应该CAR ,CDR,MEMBER就能搞定

HLCAD

仅保留表中的非重复点

ex:
(setq lst '(1 2 2 3 1 3 5 2 5 5 7))
(HL:TMP lst)  ;==> (1 2 3 5 7)

dyjwyqz5221

谢谢，明白了，终于会用member了，之前不会，还能这样用呢。