无聊！ 发布函数----得到表的奇偶项

wowan1314

2. ;得到表的奇偶项
   
3. ;(T2 LST T)奇数项。(T2 LST NIL)为偶数
   
4. (defun t2 (lst b / a)
   
5.     (setq a 0
   
6.         c '(lambda(x)(= (rem (setq a (1+ a))2)0))
   
7.     )
   
8.     (if b
   
9.         (vl-remove-if c lst)
   
10.         (vl-remove-if-not c lst)
    
11.     )
    
12. )

;得到表的奇偶项<br /> ;(T2 LST T)奇数项。(T2 LST NIL)为偶数<br /> (defun t2 (lst b / a) <br />     (setq a 0<br />         c '(lambda(x)(= (rem (setq a (1+ a))2)0))<br />     )<br />     (if b<br />         (vl-remove-if c lst)<br />         (vl-remove-if-not c lst)<br />     )<br /> )

qyming2000

这个好   
来自: 微社区