[日积月累]：cons与append的效率测试...

秋枫

【实验目的】测试 函数 CONS 和 APPEND 建表的效率差别

【测试环境】ACAD、晓东工具箱环境

【测试过程】分别用CONS、REVERSE和APPEND、LIST组合，循环1000次，获得一个字符串的每个字符到一个表中。

【测试程序】如下：

2. 
   
3. [FONT=courier new]
   
4. (defun c:test1 (/ str cha el t1 t2)
   
5.   (setq t1 (getvar "date"))
   
6.   (repeat 1000
   
7.     (setq str "建筑CAD技术")
   
8.     ($XDLSP_Text_ToDb str)
   
9.     (while (setq cha ($XDLSP_Text_GetWord))
   
10. [color=red]     (setq el (cons cha el))[/color]
    
11.     )
    
12. [color=red]   (setq el (reverse el))[/color]
    
13.   )
    
14.   (setq t2 (getvar "date"))
    
15.   (- t2 t1)
    
16. )
    
17. 
    
18. (defun c:test2 (/ str cha el t1 t2)
    
19.   (setq t1 (getvar "date"))
    
20.   (repeat 1000
    
21.     (setq str "建筑CAD技术")
    
22.     ($XDLSP_Text_ToDb str)
    
23.     (while (setq cha ($XDLSP_Text_GetWord))
    
24. [color=red]      (setq el (append el (list cha)))[/color]
    
25.     )
    
26.   )
    
27.   (setq t2 (getvar "date"))
    
28.   (- t2 t1)
    
29. )[/FONT]

<br /> [FONT=courier new]<br /> (defun c:test1 (/ str cha el t1 t2)<br />   (setq t1 (getvar "date"))<br />   (repeat 1000<br />     (setq str "建筑CAD技术")<br />     ($XDLSP_Text_ToDb str)<br />     (while (setq cha ($XDLSP_Text_GetWord))<br /> [color=red]     (setq el (cons cha el))[/color]<br />     )<br /> [color=red]   (setq el (reverse el))[/color]<br />   )<br />   (setq t2 (getvar "date"))<br />   (- t2 t1)<br /> )<br /> <br /> (defun c:test2 (/ str cha el t1 t2)<br />   (setq t1 (getvar "date"))<br />   (repeat 1000<br />     (setq str "建筑CAD技术")<br />     ($XDLSP_Text_ToDb str)<br />     (while (setq cha ($XDLSP_Text_GetWord))<br /> [color=red]      (setq el (append el (list cha)))[/color]<br />     )<br />   )<br />   (setq t2 (getvar "date"))<br />   (- t2 t1)<br /> )[/FONT]

结果：
Command: test1
3.5116e-005

Command:
Command: test2
0.000169225

【实验结论】在1000次很少的循环下，两个时间的差别是一个数量级，如果循环次数更多，差别将要更大。

【秋枫分析】ACAD使用的是双向链表结构，CONS仅仅需要在表头插入一个节点，就需要一个指针改向操作，REVERSE反向，因为是双向链表，所以也很快。还有CONS和APPEND使用的内存结构不同，CONS需要3个字节，而APPEND需要四个字节。

【秋枫推荐】在使用表的时候，大家尽量使用CONS构建表，最后用REVERSE把表反序。

cy956

qf的工作很细致啊。说实话，建表我都用的append，因为好写，没想到
啊没想到。。。。:)

秋枫

我也是啊。所以我看到xd这么写很奇怪，于是测试了一下。

cy956

还发现xd什么异常之处？
大家来把脉。:)

e2002

啊！幸好我一直都用cons的...hehe....

aeo

那几个表相加，还用cons ? 用cons试一试，试过没?

XDSoft

最初由 aeo 发布
[B]那几个表相加，还用cons ? 用cons试一试，试过没? [/B]

"还用cons ? 用cons试一试"

看了你的话，很胡涂，怎么试？

fylinwater

使用REPEAT 和nth结合的语句 与使用FOREACH处理的效率相差更大
我处理10万个实体 前者用了几分钟 后者是几秒

aeo

我的意思是
1.  (setq li3(append li1 li2))
2. (setq li1(reverse li1))
    (setq li3(reverse (foreach x li2(cons x li1)) ))
哪个快