表处理如何跳过单数取双数组成新表

世人皆醉 · 发表于 2024-12-30 09:39:18

如何将表中序列为奇数或者序列为偶数的内容删除，仅保留偶数或者仅保留奇数的内容。
简单来讲就是如何循环表中的内容，跳一个删除一个，然后组成一个新表
转换前：(list (1,0) (2,0) (3,0) (4,0)(5,0)......(100,0))
转换后：(list (2,0) (4,0) (6,0)......(100,0))

llsheng_73 · 发表于 2024-12-30 09:39:19

本帖最后由 llsheng_73 于 2024-12-30 17:31 编辑

报数分组，这个很简单，幼儿园就开始报数了不是？
http://bbs.mjtd.com/forum.php?mo ... 1853&fromuid=202795
(出处: 明经CAD社区)
(tt '(1 2 3 4 5 6 7 8 9 10)3)=>((1 4 7 10) (2 5 8) (3 6 9))
(tt '(1 2 3 4 5 6 7 8 9 10)2)=>((1 3 5 7 9) (2 4 6 8 10))
楼主本来要求只取奇或偶，可以把黄老师的增加一个参数，核心代码完全不用修改，只需要去掉准备阶段中给那个变量的初值的代码，由参数提供

(defun TT1 (L f);;;在黄老师基础上增加了一个控制参数，f为真取奇数位，nil取偶数位
(vl-remove-if(function(lambda (x) (setq f (not f))))L)
)

(tt1'(1 2 3 4 5 6 7 8 9)t)=>(1 3 5 7 9)
(tt1'(1 2 3 4 5 6 7 8 9)nil)=>(2 4 6 8)

kozmosovia · 发表于 2024-12-30 10:00:21

(Defun tt (lst / PA PB)
(while (car lst)
(setq pa (cons (car lst) pa)
pb (cons (cadr lst) pb)
lst (cddr lst)
)
)
(vl-remove nil (reverse pa))
;;奇数
(vl-remove nil (reverse pb))
;;偶数
)

自贡黄明儒 · 发表于 2024-12-30 10:44:09

本帖最后由自贡黄明儒于 2024-12-30 10:50 编辑

(defun TT1 (L)
;(setq L '((1 0) (2 0) (3 0) (4 0) (5 0) (100 0)))
(setq Flag nil)
(vl-remove-if '(lambda (x) (setq Flag (not Flag))) L)
)

;;TT1 (L Flag) Flag=nil偶，T奇
;(setq L '((1 0) (2 0) (3 0) (4 0) (5 0) (100 0)))
(defun TT1 (L Flag)
(vl-remove-if '(lambda (x) (setq Flag (not Flag))) L)
)
;;(TT1 L nil) (TT1 L T) (TT1 L T)

llsheng_73 · 发表于 2024-12-30 10:50:20

自贡黄明儒发表于 2024-12-30 10:44

(defun TT1 (L f);;;f为真取奇数位，nil取偶数位
(vl-remove-if(function(lambda (x) (setq f (not f))))L)
)

世人皆醉 · 发表于 2024-12-30 10:53:50

kozmosovia 发表于 2024-12-30 10:00

这个最后好像没有移除nil的作用

世人皆醉 · 发表于 2024-12-30 11:04:43

llsheng_73 发表于 2024-12-30 09:39
报数分组，这个很简单，幼儿园就开始报数了不是？
http://bbs.mjtd.com/forum.php?mod=viewthread&tid ...

很好用，效果很好

kozmosovia · 发表于 2024-12-30 11:07:57

你需要(setq pb (vl-remove nil...，否则pb没有更新

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

[提问] 表处理如何跳过单数取双数组成新表

最佳答案

本帖子中包含更多资源