实践检验cons与append生成lisp的耗时差矣

林霄云

一个疑惑或成常识
大家写的常见的代码，包括cad帮助里的示例，在形成列表时，都是采用cons然后反转的思路。天生的append函数为何不用呢？为了弄清白，在q3_2006提供的耗时函数下，我做了如下测试：

2. (defun vtime ()
   
3.   (* 86400 (getvar "tdusrtimer"))
   
4. )
   
5. 
   
6. (setq test-time nil)
   
7. (setq t0 (vtime));设置起点
   
8. ;代码块
   
9. (setq n 1000)
   
10. (setq i 0)
    
11. (repeat n
    
12.   (setq i(1+ i))
    
13. (setq test-time (append (list i)  test-time))
    
14. );n放大系数
    
15. ;(princ test-time)
    
16. ;代码块
    
17. (princ "\nappend")
    
18. (princ (strcat "\n耗时" (rtos (- (vtime) t0) 2 3) "秒"));设置终点
    
19. 
    
20. (setq test-time nil)
    
21. (setq t0 (vtime));设置起点
    
22. ;代码块
    
23. (setq n 1000)
    
24. (setq i 0)
    
25. (repeat n
    
26.   (setq i(1+ i))
    
27. (setq test-time (cons i  test-time))
    
28. );n放大系数
    
29. (setq test-time(reverse test-time))
    
30. 
    
31. ;(princ test-time)
    
32. ;代码块
    
33. (princ "\ncons and reverse")
    
34. (princ (strcat "\n耗时" (rtos (- (vtime) t0) 2 3) "秒"));设置终点
    

(defun vtime ()<br />   (* 86400 (getvar "tdusrtimer"))<br /> )<br /> <br /> (setq test-time nil)<br /> (setq t0 (vtime));设置起点<br /> ;代码块<br /> (setq n 1000)<br /> (setq i 0)<br /> (repeat n <br />   (setq i(1+ i))<br /> (setq test-time (append (list i)  test-time))<br /> );n放大系数<br /> ;(princ test-time)<br /> ;代码块<br /> (princ "\nappend")<br /> (princ (strcat "\n耗时" (rtos (- (vtime) t0) 2 3) "秒"));设置终点<br /> <br /> (setq test-time nil)<br /> (setq t0 (vtime));设置起点<br /> ;代码块<br /> (setq n 1000)<br /> (setq i 0)<br /> (repeat n <br />   (setq i(1+ i))<br /> (setq test-time (cons i  test-time))<br /> );n放大系数<br /> (setq test-time(reverse test-time))<br /> <br /> ;(princ test-time)<br /> ;代码块<br /> (princ "\ncons and reverse")<br /> (princ (strcat "\n耗时" (rtos (- (vtime) t0) 2 3) "秒"));设置终点<br />

结果如下
append
耗时0.047秒
cons and reverse
耗时0.015秒

append
耗时0.031秒
cons and reverse
耗时0.000秒

append
耗时0.032秒
cons and reverse
耗时0.000秒

初步结论：cons是对atom级别的操作，append是list级别的操作，cons and reverse和append效率不在一个数量集上。应该尽量使用cons and reverse。


该贴已经同步到 林霄云的微博

gdslqs

不错，虽然我经常用cons少用append，但还真没注意这个问题

edata

空了试试vla-put-layer和entmod方式才速度比。。

kingcai

这是我自己的分析，你看看我说的对不对
http://bbs.ivlisp.com/forum.php?mod=viewthread&tid=35&extra=
我觉得应该是这个原因

xiayuxue213

牛