（XD::List:Union）返回两个表的合集（去除重复）

marting · 发表于 2019-1-22 12:15:46

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

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

×

(defun XD::List:Union ( l1 l2 / x l )
(setq l1 (append l1 l2))
(while (setq x (car l1)) (setq l (cons x l) l1 (vl-remove x l1)))
(reverse l)
)

命令: (setq a '(1 2 3))
(1 2 3)

命令: (setq b '(2 3 4 5))
(2 3 4 5)

命令: (xd::list:union a b)
(1 2 3 4 5)

479274135 · 发表于 2019-1-24 15:14:51

谢谢分享刚好都是要研究的过来学习下

dyjwyqz5221 · 发表于 2020-4-27 09:54:20

本函数中用到了消重，经过测试，这种消重对于少量数据来说速度还可以，但是对于大量数据来说，消重速度就非常地慢了，建议采用XD::List:RemoveDup函数进行消重。
例如：
(progn
(setq i -1)
(repeat 10000
(setq lst (cons (setq i (1+ i)) lst))
)
(setq lst1 (append lst lst lst lst lst lst lst lst lst)
lst2 lst1
)
)
这样两个表lst1与lst2,在进行合并并且消重时，速度明显不一样
经过测试：
(XD::List:Union lst1 lst2)用时37s
(XD::List:RemoveDup (append lst1 lst2))用时仅3s
速度相差甚远，建议修改。

dyjwyqz5221 · 发表于 2020-4-27 09:59:36

本帖最后由 dyjwyqz5221 于 2020-4-27 10:17 编辑

请测试一下

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

[表] （XD::List:Union）返回两个表的合集（去除重复）

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