（ XD::List:Intersection-fuzz）返回两个表的共有元素（交集、支持容差）

marting · 发表于 2019-1-22 11:45:46

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

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

×

(defun XD::List:Intersection-fuzz (l1 l2 fuzz)
(vl-remove-if-not
'(lambda (x)
(setq aa (xd::list:member-if '(lambda(y)(equal x y fuzz)) l2))
)
l1
)
)

命令: !a
(1.01 3.03 2 4)
命令: !b
(1.009 3.04 3 2)

命令: (XD::LIST:INTERSECTION-FUZZ a b 0.1)
(1.01 3.03 2)

命令: (XD::LIST:INTERSECTION-FUZZ a b 0.01)
(1.01 2)

命令: (XD::LIST:INTERSECTION-FUZZ a b 0.001)
(2)

sicky111 · 发表于 2019-1-23 09:14:43

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

[表] （ XD::List:Intersection-fuzz）返回两个表的共有元素（交集、支持容差）

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

评分