（XD::List:del）删除表lst2中表lst1表lst2共有的元素

csy0415 · 发表于 2019-1-22 15:07:22

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

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

×

本帖最后由 newer 于 2019-1-24 15:11 编辑

(defun XD::List:del ( lst1 lst2 / x)
(foreach x lst1
(if (member x lst2)
(setq lst2 (vl-remove x lst2))
)
) lst2
)

Lisphk · 发表于 2019-1-22 17:56:58

谢谢楼主分享代码，但有点问题，最后要加上一个返回值lst2才行，否则对于最后一次没进入 (setq lst2....)的结果就不对了，返回NIL

比如：

命令: !aa
(1 2 4 3)

命令: !bb
(1 2 4 56 6)

命令: (xd::list:del aa bb)
nil

[Actionscript3] 纯文本查看 复制代码

(defun XD::List:del ( lst1 lst2 / x)
(foreach x lst1
   (if (member x lst2)
    (setq lst2 (vl-remove x lst2))
   )
   )
   lst2
)

命令: (xd::list:del aa bb)
(56 6)

marting · 发表于 2019-1-22 18:23:42

下面代码也可以做

(defun xd::list:del2 (l1 l2)
(vl-remove-if '(lambda (x) (member x l1)) l2)
)

测试下楼主的和上面的效率

(defun c:tt ()
(setq b nil)
(repeat 100 (setq b (cons (xdrx_math_rand 1 100) b)))
(setq c nil)
(repeat 100 (setq c (cons (xdrx_math_rand 1 100) c)))
(xd::quickbench '((XD::List:del1 b c) (XD::List:del2 b c)))
(princ)
)

命令: TT

CPU:(1x)Intel(R) Core(TM) i7-4790 @ 3.60GHz 4Cores  / Memory:16G / OS:WIN10企业版
Benchmarking ....... done for 4096 iterations. Sorted from fastest.
Statement                   Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(XD::LIST:DEL B C)             4096    1578    1578    2.89 <fastest>
(XD::LIST:DEL2 B C)             1024    1141    4564    1.00 <slowest>
-------------------------------------------------------------------------------

命令:
命令: TT

CPU:(1x)Intel(R) Core(TM) i7-4790 @ 3.60GHz 4Cores  / Memory:16G / OS:WIN10企业版
Benchmarking ....... done for 4096 iterations. Sorted from fastest.
Statement                   Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(XD::LIST:DEL B C)             4096    1750    1750    3.00 <fastest>
(XD::LIST:DEL2 B C)             1024    1312    5248    1.00 <slowest>
-------------------------------------------------------------------------------

命令:
命令: tt

CPU:(1x)Intel(R) Core(TM) i7-4790 @ 3.60GHz 4Cores  / Memory:16G / OS:WIN10企业版
Benchmarking ....... done for 2048 iterations. Sorted from fastest.
Statement                   Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(XD::LIST:DEL B C)             2048    1047    1047    2.89 <fastest>
(XD::LIST:DEL2 B C)             1024    1515    3030    1.00 <slowest>
-------------------------------------------------------------------------------

命令:
命令: (xd::list:del1 b c)
(41 21 59 65 73 57 52 50 1 3 50 81 1 65 50 81 78 72 72 1 41 44 11 41 73 20 72
57 44 1 65 1)

命令: tt
CPU:(1x)Intel(R) Core(TM) i7-4790 @ 3.60GHz 4Cores  / Memory:16G / OS:WIN10企业版
Benchmarking ....... done for 4096 iterations. Sorted from fastest.
Statement                   Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(XD::LIST:DEL B C)             4096    1344    1344    3.16 <fastest>
(XD::LIST:DEL2 B C)             1024    1063    4252    1.00 <slowest>
-------------------------------------------------------------------------------

可见，楼主的代码效率要更高，所以尽量别用vl-remove-if

gdfyhao · 发表于 2019-1-23 08:40:34

很实用的功能，学习了

csy0415 · 发表于 2019-1-24 09:43:19

Lisphk 发表于 2019-1-22 17:56
谢谢楼主分享代码，但有点问题，最后要加上一个返回值lst2才行，否则对于最后一次没进入 (setq lst2....)的 ...

是的后面要加一个lst2才行不然会有问题，感谢指出

479274135 · 发表于 2019-1-24 15:07:13

过来学习学习谢谢分享

dyjwyqz5221 · 发表于 2020-4-29 15:00:48

直接去掉if判断，效率会更快一些，约提高20%的效率

dyjwyqz5221 · 发表于 2020-4-29 15:12:05

本帖最后由 dyjwyqz5221 于 2020-4-29 15:14 编辑

经测试，用mapcar效率会更高一些

[Actionscript3] 纯文本查看 复制代码

(defun XD::List:del1(lst1 lst)
	(mapcar
		'(lambda(x)
    			(setq lst (vl-remove x lst))
   		)
		lst1
   	)
   	lst
)

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

[表] （XD::List:del）删除表lst2中表lst1表lst2共有的元素

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

评分

点评

浏览过的版块