删除表重复元素

Lisphk · 发表于 2016-11-23 08:38:14

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 Lisphk 于 2016-11-23 08:41 编辑

(defun _RemoveDuplicates ( lst / foo index )
    (defun foo (x)
        (cond
            ((vl-position x index))
            ((null (setq index (cons x index))))
        )
    )
    (vl-remove-if
       'foo
        lst
    )
)

aimisiyou · 发表于 2016-11-23 10:23:26

本帖最后由 aimisiyou 于 2016-11-23 10:47 编辑

(defun f (lst)
  (if (null  lst)
   (setq flst lst)
   (if (member (car lst) (cdr lst))
      (setq flst (f (cdr lst)))
      (setq flst (cons  (car lst) (f (cdr lst))))
   )
)
)

HLCAD · 发表于 2016-11-23 10:26:44

程序经典
成功测试了以下例子：
;;; EX: (_RemoveDuplicates '(1 1 2 3 8 8 8))
;;; EX: (_RemoveDuplicates '(1 8 1 (2 2) 8 3 8 (2 2) 8))
;;; EX: (_RemoveDuplicates '(1. 8. 1. (2. 2.) 8. 3. 8. (2. 2.) 8.))
;;; EX: (_RemoveDuplicates '("1""8""1"("2""2")"8""3""8"("2""2")"8"))

newer · 发表于 2016-11-23 10:50:48

aimisiyou 发表于 2016-11-23 10:23

递归总是有限制，能迭代还是迭代好。楼主的代码确实经典

onemax · 发表于 2020-2-28 11:25:57

参详一下，谢谢分享！

杨张张 · 发表于 2020-2-28 15:27:33

学习一下，学习楼主

账号		自动登录	找回密码
密码			立即注册

[每日一码] 删除表重复元素

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分