关于表处理

q3_2006

在点表中插入中间点及去掉中间点，希望能写成函数，谢谢！（实际情况是点表，当然数组的情况也是有的，做法差不多）

插入的情况如下：
'(1 3 5 7 9)
->
'(1 2 3 4 5 6 7 8 9)
->
'(1 1.5 2 2.5 3 3.5 4 4.5 5 5.5 6 6.5 7 7.5 8 8.5 9)
....
反过来如果是去掉中间点的情况
'(1 1.5 2 2.5 3 3.5 4 4.5 5 5.5 6 6.5 7 7.5 8 8.5 9)
->
'(1 2 3 4 5 6 7 8 9)
->
'(1 3 5 7 9)
....

st788796

去元素的早有了，xd::list: odd
有了不学习
(apply 'append (mapcar '(lambda (a b) (list a b)) lst1 lst))

q3_2006

st788796 发表于 2013-11-25 15:08
去元素的早有了，xd::listdd
有了不学习

搜不到呀？？

st788796

q3_2006 发表于 2013-11-25 15:12
搜不到呀？？

表奇数位元素
手机都能搜到
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=668642

q3_2006

st788796 发表于 2013-11-25 15:14
表奇数位元素
手机都能搜到
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=668642

这个我知道呀。。但要拆分表再组合表，我嫌步数太多呀。。能用更简洁的方法吗？？

q3_2006

st788796 发表于 2013-11-25 15:14
表奇数位元素
手机都能搜到
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=668642

拆成奇偶表求中间再组合，我会的。。{:soso_e110:}，想知道有没有更厉害的方式。。。

st788796

q3_2006 发表于 2013-11-25 15:20
拆成奇偶表求中间再组合，我会的。。，想知道有没有更厉害的方式。。。

还能再厉害吗？

q3_2006

st788796 发表于 2013-11-25 15:29
还能再厉害吗？

我不是新手吗。。感觉可能还有更厉害的方法。。{:soso_e112:}

牢固

q3_2006 发表于 2013-11-25 15:20
拆成奇偶表求中间再组合，我会的。。，想知道有没有更厉害的方式。。。

1. (defun ins (l)
   
2.   (if (cadr l)
   
3.     (cons (car l)
   
4.     (cons (* 0.5 (+ (car l) (cadr l))) (ins (cdr l)))
   
5.     )
   
6.     l
   
7.   )
   
8. )
   
9. (ins '(1 2 3 4 5 6))
   
10. ==>
    
11. '(1 1.5 2 2.5 3 3.5 4 4.5 5 5.5 6)

(defun ins (l)<br />   (if (cadr l)<br />     (cons (car l)<br />     (cons (* 0.5 (+ (car l) (cadr l))) (ins (cdr l)))<br />     )<br />     l<br />   )<br /> )<br /> (ins '(1 2 3 4 5 6))<br /> ==><br /> '(1 1.5 2 2.5 3 3.5 4 4.5 5 5.5 6)

q3_2006

牢固 发表于 2013-11-25 15:35

这个我要消化一下，谢谢G版{:soso_e121:}