关于LISP表处理的测试练习，看看谁的代码高效的前提下更简洁

牢固

wowan1314 发表于 2013-5-27 10:40
呵呵。搞不懂了。 你可以自己再测测。 我也觉的不加APPLY应该会快点呀。

其实最意外的是APPLY对MAPCAR函 ...

为什么要用Apply?原因是用Apply后，函数的参数可以不定，参数以表的形式将参数传递给函数，实现了函数的不定参数应用！其效率肯定要比直接使用函数低一点，但效率影响微乎其微，基本可以忽略不计！

yx5277

看来要好好研究一下mapcar这个函数了:)

pengfei2010

怎么没有人用nth函数呀，我也来一个献丑哈，新手求指点

1. (defun cpf-2d->pts(ps / i pts)
   
2.       (setq i 0 pts nil)
   
3.       (repeat (/ (length ps) 2)
   
4.              (setq pts (cons (list (nth (* i 2) ps) (nth (+ (* i 2) 1) ps)) pts))
   
5.              (setq i (+ i 1))
   
6.       )
   
7.       (reverse pts)
   
8. )

(defun cpf-2d->pts(ps / i pts)<br />       (setq i 0 pts nil)<br />       (repeat (/ (length ps) 2)<br />              (setq pts (cons (list (nth (* i 2) ps) (nth (+ (* i 2) 1) ps)) pts))<br />              (setq i (+ i 1))<br />       )<br />       (reverse pts)<br /> )

newer

pengfei2010 发表于 2013-5-28 15:12
怎么没有人用nth函数呀，我也来一个献丑哈，新手求指点

有NTH的， 7楼的就是，不过支持美女写代码。

pengfei2010

newer 发表于 2013-5-28 16:46
有NTH的， 7楼的就是，不过支持美女写代码。

美女？  男吊丝一枚，呵呵  楼主失算了

newer

pengfei2010 发表于 2013-5-28 17:22
美女？  男吊丝一枚，呵呵  楼主失算了

呵呵，我是视觉控。;P

pengfei2010

newer 发表于 2013-5-28 17:38
呵呵，我是视觉控。

看来楼主对美眉比较敏感，不错不错:lol

newer

pengfei2010 发表于 2013-5-28 20:15
看来楼主对美眉比较敏感，不错不错

我不是楼主:L， 我是层主;P， 小心真的楼主投诉你。