返回表两两元素组合点对元素表

Lispboy

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

测试：

1. ;b=(12 34 56 34 56 6)
   
2. (xd::list:dotpair b)
   
3. ((12 . 34) (56 . 34) (56 . 6))
   
4. 
   

;b=(12 34 56 34 56 6)<br /> (xd::list:dotpair b)<br /> ((12 . 34) (56 . 34) (56 . 6))<br /> <br />

wowan1314

无聊啊

2. ;表中两个两个配对后的表
   
3. (defun t3 (lst / a)
   
4.   (setq a 0)
   
5.     (vl-remove-if '(lambda(x)(= (rem (setq a (1+ a))2)0))
   
6.         (mapcar 'cons lst (cdr lst))
   
7.     )
   
8. )

;表中两个两个配对后的表<br /> (defun t3 (lst / a) <br />   (setq a 0)<br />     (vl-remove-if '(lambda(x)(= (rem (setq a (1+ a))2)0))<br />         (mapcar 'cons lst (cdr lst))<br />     )<br /> )

kkt123

:L;;:L;;:L;;

wadff

返回表两两元素组合点对元素表
对 (1 2 3 4)这样的返回 ((1 . 2)(3 . 4))
对 (10 '(0 0 0))这样的，返回 ((10 0 0 0))

hxuerong1

返回表两两元素组合点对元素表
对 (1 2 3 4)这样的返回 ((1 . 2)(3 . 4))
对 (10 '(0 0 0))这样的，返回 ((10 0 0 0))