返回表奇数位置元素表

Lispboy

游客，本帖隐藏的内容需要积分高于 50 才可浏览，您当前积分为 0

测试：

1. ;b=(12 34 56 34 56 6)
   
2. (XD::List:ODD b)
   
3. ;(12 56 56)
   
4. 
   

;b=(12 34 56 34 56 6)<br /> (XD::List:ODD b)<br /> ;(12 56 56)<br /> <br />

Free-Lancer

奇数、偶数位可以用一个函数，增加一个 T/nil 参数，不必要作那么多函数

sachindkini

{:soso_e179:}

Lispboy

Free-Lancer 发表于 2013-6-5 13:12
奇数、偶数位可以用一个函数，增加一个 T/nil 参数，不必要作那么多函数

函数本身也不大，还是分开更方便记忆，要不函数命名都有点混，奇还是偶呢，用户每次还得记T是什么，NIL是什么。基本函数还是清晰些好。

st788796

1. (defun XD::List:Even (el / lst)
   
2.   (while (setq el (cdr el))
   
3.     (setq lst (cons (car el) lst)
   
4.          el (cdr el)
   
5.     )
   
6.   )
   
7.   (reverse lst)
   
8. )

(defun XD::List:Even (el / lst)<br />   (while (setq el (cdr el))<br />     (setq lst (cons (car el) lst)<br />          el (cdr el)<br />     )<br />   )<br />   (reverse lst)<br /> )

newer

st788796 发表于 2013-11-23 20:23

lst (cdr lst)

---->


el (cdr el)

吧？

st788796

newer 发表于 2013-11-23 21:54
lst (cdr lst)

---->

嗯，搞错了

1. (defun XD::List:ODD (lst / el)
   
2.   (while (setq lst (cdr lst))
   
3.     (setq el  (cons (car lst) el)
   
4.           lst (cdr lst)
   
5.     )
   
6.   )
   
7.   (reverse el)
   
8. )
   

(defun XD::List:ODD (lst / el)<br />   (while (setq lst (cdr lst))<br />     (setq el  (cons (car lst) el)<br />           lst (cdr lst)<br />     )<br />   )<br />   (reverse el)<br /> )<br />

kkt123

:funk:作那么多函数:@

zhangjianjie630

每次都要50的限制

凝思

谢谢大神分享！