关于两表相减的问题，请教大神帮帮忙啊

yigexinren · 发表于 2019-5-15 14:40:18

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

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

×

本帖最后由 yigexinren 于 2019-5-15 14:41 编辑

问题图片上描述了一遍了，这样应该怎么做呢，各位大神帮帮忙啊。注意表中的元素顺序可能是乱的，但是表二的元素统统都来自表一。

satan421 · 发表于 2019-5-16 08:46:47

_$ (setq a '(1 2 3 4 5) b '(2 3))
(2 3)
_$ (vl-remove-if (function (lambda (x) (member x b))) a)
(1 4 5)

aimisiyou · 发表于 2019-5-15 15:30:53

_$ (setq lst1 '(a b c d e f g h))
(A B C D E F G H)
_$ (setq lst2 '(d e g))
(D E G)
_$ (vl-remove nil (mapcar '(lambda (x) (if (member x lst2) nil x)) lst1))
(A B C F H)
_$

newer · 发表于 2019-5-15 16:33:28

多去开源函数库论坛，看看 xd::list开头的代码。

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

[求助] 关于两表相减的问题，请教大神帮帮忙啊

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