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

世人皆醉

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

llsheng_73

报数分组，这个很简单，幼儿园就开始报数了不是？
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))
楼主本来要求只取奇或偶，可以把黄老师的增加一个参数，核心代码完全不用修改，只需要去掉准备阶段中给那个变量的初值的代码，由参数提供

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

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

(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

2. (Defun tt (lst / PA PB)
   
3.   (while (car lst)
   
4.     (setq pa  (cons (car lst) pa)
   
5.           pb  (cons (cadr lst) pb)
   
6.           lst (cddr lst)
   
7.     )
   
8.   )
   
9.   (vl-remove nil (reverse pa))
   
10.   ;;奇数
    
11.   (vl-remove nil (reverse pb))
    
12.   ;;偶数
    
13. )

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

自贡黄明儒

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

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

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

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

llsheng_73

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

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

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

世人皆醉

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

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

世人皆醉

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

很好用，效果很好

kozmosovia

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