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

牢固

Lispboy 发表于 2013-5-26 22:27
是的，T8 最快。 NEWER的APPEND的，现在还没出来呢。在等。

append表越长越慢！由Lisp公理决定了的！

Lispboy

所以，大家在写消除重线啥的，如果 组点对 那样的操作，用underway的代码，数量级差几个级别呢。

最好是不要出现APPEND。 append 的10多分钟了，还没结果呢。

Lispboy

Free-Lancer 发表于 2013-5-26 22:29
测试时打开vlide和关闭也是有很大区别的

测绝对时间没意义的，在相同环境下即可了。看的是相对的速度。

Lispboy

得到一个结论是：

1、尽量用mapcar ,apply 组合 cons，car,cdr 基本函数  ，ACAD内部肯定有没公布的秘密对表的操作。要不不能0.01秒就处理完。
2、如果只能用APPEND的，那么程序就不要写了。
3、 循环里面也别要 nth 去读表，也很慢的，要一次次的遍历表，循环越多，速度越慢，N*N至少
4、不怕 reverse  ,  也很快。5 、巨量数据的处理，请别用递归。

最优代码应该是T12，根源在于用了AUTOLISP的基本函数，和无条件判断。

[pcode=lisp,true]
(defun c:t12 ()
  (setq t1 (get-utime))
  (setq abc (mapcar
              'list
              ll
              (cdr ll)
            )
  )
  (setq t2 (get-utime))
  (princ "\nUse Time: ")
  (princ (- t2 t1))
  (princ " s")
  (princ)
)
[/pcode]

1. 命令:
   
2. 命令: t8
   
3. Use Time: 0.024 s
   
4. 命令:
   
5. 命令: t8
   
6. Use Time: 0.031 s
   
7. 命令:
   
8. 命令: t12
   
9. Use Time: 0.028 s
   
10. 命令:
    
11. 命令: t12
    
12. Use Time: 0.029 s
    
13. 命令:
    
14. 命令: t8
    
15. Use Time: 0.028 s
    
16. 命令:
    
17. 命令: t12
    
18. Use Time: 0.03 s
    
19. 命令:
    

命令:<br /> 命令: t8<br /> Use Time: 0.024 s<br /> 命令:<br /> 命令: t8<br /> Use Time: 0.031 s<br /> 命令:<br /> 命令: t12<br /> Use Time: 0.028 s<br /> 命令:<br /> 命令: t12<br /> Use Time: 0.029 s<br /> 命令:<br /> 命令: t8<br /> Use Time: 0.028 s<br /> 命令:<br /> 命令: t12<br /> Use Time: 0.03 s<br /> 命令:<br />

牢固

Free-Lancer 发表于 2013-5-26 22:29
测试时打开vlide和关闭也是有很大区别的

编译成VLX更快！

zxq0220

好象(mapcar 'list a (cdr a))最快

XDSoft

牢固 发表于 2013-5-26 22:43
编译成VLX更快！

为什么ARX效率要高，编译是一方面，另外，更主要的，因为C++数据类型丰富，尤其是指针，链表结构，可以自己定义链表结构，比如双向链表等等，利用好的数据结构，利用好的算法、让程序的效率更高。

Lispboy

zxq0220 发表于 2013-5-26 22:55
好象(mapcar 'list a (cdr a))最快

1. (defun c:t12 ()
   
2.   (setq t1 (get-utime))
   
3.   (mapcar
   
4.     'list
   
5.     ll
   
6.     (cdr ll)
   
7.   )
   
8.   (setq t2 (get-utime))
   
9.   (princ "\nUse Time: ")
   
10.   (princ (- t2 t1))
    
11.   (princ " s")
    
12.   (princ)
    
13. )
    

(defun c:t12 ()<br />   (setq t1 (get-utime))<br />   (mapcar<br />     'list<br />     ll<br />     (cdr ll)<br />   )<br />   (setq t2 (get-utime))<br />   (princ "\nUse Time: ")<br />   (princ (- t2 t1))<br />   (princ " s")<br />   (princ)<br /> )<br />

1. 命令:
   
2. 命令: t8
   
3. Use Time: 0.024 s
   
4. 
   
5. 命令:
   
6. 命令: t8
   
7. 
   
8. Use Time: 0.031 s
   
9. 
   
10. 命令:
    
11. 命令: t12
    
12. 
    
13. Use Time: 0.028 s
    
14. 
    
15. 命令:
    
16. 命令: t12
    
17. 
    
18. Use Time: 0.029 s
    
19. 
    
20. 命令:
    
21. 命令: t8
    
22. 
    
23. Use Time: 0.028 s
    
24. 
    
25. 命令:
    
26. 命令: t12
    
27. 
    
28. Use Time: 0.03 s
    
29. 
    
30. 命令:
    

命令:<br /> 命令: t8<br /> Use Time: 0.024 s<br /> <br /> 命令:<br /> 命令: t8<br /> <br /> Use Time: 0.031 s<br /> <br /> 命令:<br /> 命令: t12<br /> <br /> Use Time: 0.028 s<br /> <br /> 命令:<br /> 命令: t12<br /> <br /> Use Time: 0.029 s<br /> <br /> 命令:<br /> 命令: t8<br /> <br /> Use Time: 0.028 s<br /> <br /> 命令:<br /> 命令: t12<br /> <br /> Use Time: 0.03 s<br /> <br /> 命令:<br />

51# 同 T8基本一样，代码更简洁。这个应该是最优答案

GTJ116600

楼主辛苦了。

wowan1314

   感觉还是应该再详细的测试下。首先比较下不同的while写法。

2. (defun get-utime () (* 86400.0 (getvar "tdusrtimer")))
   
3. (DEFUN C:100W (/ I LL)
   
4.   (setq i 0)
   
5.   (setq ll nil)
   
6.   (repeat 1000000
   
7.     (setq ll (cons (setq i (1+ i))
   
8.                    ll
   
9.              )
   
10.     )
    
11.   )
    
12. (setq time1 (get-utime))
    
13. (t1 ll)
    
14. (setq time2 (get-utime))
    
15. (princ "\nwhile方法1:")(princ (- time2 time1))(princ "s")
    
16. (setq time1 (get-utime))
    
17. (t2 ll)
    
18. (setq time2 (get-utime))
    
19. (princ "\nwhile方法2:")(princ (- time2 time1))(princ "s")
    
20. (setq time1 (get-utime))
    
21. (t3 ll)
    
22. (setq time2 (get-utime))
    
23. (princ "\nwhile方法3:")(princ (- time2 time1))(princ "s")
    
24. (PRINC)
    
25. )
    
26. 
    
27. ;;WHILE方法1
    
28. (DEFUN T1 (LST / LST1)
    
29.   (SETQ LST1 NIL)
    
30.   (WHILE (SETQ LST1 (CONS (LIST (CAR LST) (CADR LST)) LST1)
    
31.                LST (CDR LST)
    
32.          )
    
33.   )
    
34.   (reverse (CDR LST1))
    
35. )
    
36. ;;WHILE方法2
    
37. (DEFUN T2 (LST / LST1)
    
38.   (SETQ LST1 NIL)
    
39.   (WHILE (CDR LST)
    
40.         (SETQ LST1 (CONS (LIST (CAR LST) (CADR LST)) LST1)
    
41.                LST (CDR LST)
    
42.          )
    
43.   )
    
44.   (reverse LST1)
    
45. )
    
46. ;;WHILE方法3
    
47. (DEFUN T3 (LST / LST1)
    
48.   (SETQ LST1 NIL)
    
49.   (WHILE (CADR LST)
    
50.         (SETQ LST1 (CONS (LIST (CAR LST) (CADR LST)) LST1)
    
51.                LST (CDR LST)
    
52.          )
    
53.   )
    
54.   (reverse LST1)
    
55. )

(defun get-utime () (* 86400.0 (getvar "tdusrtimer")))<br /> (DEFUN C:100W (/ I LL)<br />   (setq i 0)<br />   (setq ll nil)<br />   (repeat 1000000<br />     (setq ll (cons (setq i (1+ i))<br />                    ll<br />              )<br />     )<br />   )<br /> (setq time1 (get-utime))<br /> (t1 ll)<br /> (setq time2 (get-utime))<br /> (princ "\nwhile方法1:")(princ (- time2 time1))(princ "s")<br /> (setq time1 (get-utime))<br /> (t2 ll)<br /> (setq time2 (get-utime))<br /> (princ "\nwhile方法2:")(princ (- time2 time1))(princ "s")<br /> (setq time1 (get-utime))<br /> (t3 ll)<br /> (setq time2 (get-utime))<br /> (princ "\nwhile方法3:")(princ (- time2 time1))(princ "s")<br /> (PRINC)<br /> )<br /> <br /> ;;WHILE方法1<br /> (DEFUN T1 (LST / LST1)<br />   (SETQ LST1 NIL)<br />   (WHILE (SETQ LST1 (CONS (LIST (CAR LST) (CADR LST)) LST1)<br />                LST (CDR LST)<br />          )<br />   )<br />   (reverse (CDR LST1))<br /> )<br /> ;;WHILE方法2<br /> (DEFUN T2 (LST / LST1)<br />   (SETQ LST1 NIL)<br />   (WHILE (CDR LST)<br />         (SETQ LST1 (CONS (LIST (CAR LST) (CADR LST)) LST1)<br />                LST (CDR LST)<br />          )<br />   )<br />   (reverse LST1)<br /> )<br /> ;;WHILE方法3<br /> (DEFUN T3 (LST / LST1)<br />   (SETQ LST1 NIL)<br />   (WHILE (CADR LST)<br />         (SETQ LST1 (CONS (LIST (CAR LST) (CADR LST)) LST1)<br />                LST (CDR LST)<br />          )<br />   )<br />   (reverse LST1)<br /> )

3种写法都能得到正确答案。那么其效率测试如下。

命令: 100W


while方法1:0.797s
while方法2:0.89s
while方法3:1.047s


命令:
命令:
100W
while方法1:0.797s
while方法2:0.891s
while方法3:1.046s


命令:
命令:
100W
while方法1:0.782s
while方法2:0.89s
while方法3:1.063s


结论：while内尽量少放代码。CAR CDR的效率比他们组合起来的效率高(好像是废话)。

wowan1314

   测试while写法与foreach写法的效率：

2. (DEFUN C:100W (/ I LL)
   
3.   (setq i 0)
   
4.   (setq ll nil)
   
5.   (repeat 1000000
   
6.     (setq ll (cons (setq i (1+ i))
   
7.                    ll
   
8.              )
   
9.     )
   
10.   )
    
11. (setq time1 (get-utime))
    
12. (t1 ll)
    
13. (setq time2 (get-utime))
    
14. (princ "\nwhile方法1:")(princ (- time2 time1))(princ "s")
    
15. (setq time1 (get-utime))
    
16. (t2 ll)
    
17. (setq time2 (get-utime))
    
18. (princ "\nforeach方法:")(princ (- time2 time1))(princ "s")
    
19. (PRINC)
    
20. )
    
21. 
    
22. ;;WHILE方法1
    
23. (DEFUN T1 (LST / LST1)
    
24.   (SETQ LST1 NIL)
    
25.   (WHILE (SETQ LST1 (CONS (LIST (CAR LST) (CADR LST)) LST1)
    
26.                LST (CDR LST)
    
27.          )
    
28.   )
    
29.   (reverse (CDR LST1))
    
30. )
    
31. 
    
32. ;;foreach方法
    
33. (DEFUN T2 (A / LST)
    
34. (SETQ LST NIL)
    
35. (foreach b a (setq lst (cons (list b (cadr a)) lst) a (cdr a)))
    
36. (reverse (CDR LST))
    
37. )

(DEFUN C:100W (/ I LL)<br />   (setq i 0)<br />   (setq ll nil)<br />   (repeat 1000000<br />     (setq ll (cons (setq i (1+ i))<br />                    ll<br />              )<br />     )<br />   )<br /> (setq time1 (get-utime))<br /> (t1 ll)<br /> (setq time2 (get-utime))<br /> (princ "\nwhile方法1:")(princ (- time2 time1))(princ "s")<br /> (setq time1 (get-utime))<br /> (t2 ll)<br /> (setq time2 (get-utime))<br /> (princ "\nforeach方法:")(princ (- time2 time1))(princ "s")<br /> (PRINC)<br /> )<br /> <br /> ;;WHILE方法1<br /> (DEFUN T1 (LST / LST1)<br />   (SETQ LST1 NIL)<br />   (WHILE (SETQ LST1 (CONS (LIST (CAR LST) (CADR LST)) LST1)<br />                LST (CDR LST)<br />          )<br />   )<br />   (reverse (CDR LST1))<br /> )<br /> <br /> ;;foreach方法<br /> (DEFUN T2 (A / LST)<br /> (SETQ LST NIL)<br /> (foreach b a (setq lst (cons (list b (cadr a)) lst) a (cdr a)))<br /> (reverse (CDR LST))<br /> )

同样测试三次。

命令: 100W


while方法1:0.813s
foreach方法:0.937s


命令:
命令:
100W
while方法1:0.812s
foreach方法:0.938s


命令:
命令:
100W
while方法1:0.797s
foreach方法:0.969s


结论：while方法比foreach效率要高一点点。

wowan1314

   再来测试mapcar写法。 一个是加APPLY。一个是直接mapcar.

2. (defun get-utime () (* 86400.0 (getvar "tdusrtimer")))
   
3. (DEFUN C:100W (/ I LL)
   
4.   (setq i 0)
   
5.   (setq ll nil)
   
6.   (repeat 1000000
   
7.     (setq ll (cons (setq i (1+ i))
   
8.                    ll
   
9.              )
   
10.     )
    
11.   )
    
12. (setq time1 (get-utime))
    
13. (t1 ll)
    
14. (setq time2 (get-utime))
    
15. (princ "\nwhile方法1:")(princ (- time2 time1))(princ "s")
    
16. (setq time1 (get-utime))
    
17. (t2 ll)
    
18. (setq time2 (get-utime))
    
19. (princ "\nmapcar方法1:")(princ (- time2 time1))(princ "s")
    
20. (setq time1 (get-utime))
    
21. (t3 ll)
    
22. (setq time2 (get-utime))
    
23. (princ "\nmapcar方法2:")(princ (- time2 time1))(princ "s")
    
24. (PRINC)
    
25. )
    
26. 
    
27. ;;WHILE方法1
    
28. (DEFUN T1 (LST / LST1)
    
29.   (SETQ LST1 NIL)
    
30.   (WHILE (SETQ LST1 (CONS (LIST (CAR LST) (CADR LST)) LST1)
    
31.                LST (CDR LST)
    
32.          )
    
33.   )
    
34.   (reverse (CDR LST1))
    
35. )
    
36. 
    
37. ;;mapcar方法1
    
38. (DEFUN T2 (a)
    
39. (apply 'mapcar (cons 'list (list a (cdr a))))
    
40. )
    
41. ;;mapcar方法2
    
42. (DEFUN T3 (a)
    
43. (mapcar 'LIST a (cdr a))
    
44. )
    

(defun get-utime () (* 86400.0 (getvar "tdusrtimer")))<br /> (DEFUN C:100W (/ I LL)<br />   (setq i 0)<br />   (setq ll nil)<br />   (repeat 1000000<br />     (setq ll (cons (setq i (1+ i))<br />                    ll<br />              )<br />     )<br />   )<br /> (setq time1 (get-utime))<br /> (t1 ll)<br /> (setq time2 (get-utime))<br /> (princ "\nwhile方法1:")(princ (- time2 time1))(princ "s")<br /> (setq time1 (get-utime))<br /> (t2 ll)<br /> (setq time2 (get-utime))<br /> (princ "\nmapcar方法1:")(princ (- time2 time1))(princ "s")<br /> (setq time1 (get-utime))<br /> (t3 ll)<br /> (setq time2 (get-utime))<br /> (princ "\nmapcar方法2:")(princ (- time2 time1))(princ "s")<br /> (PRINC)<br /> )<br /> <br /> ;;WHILE方法1<br /> (DEFUN T1 (LST / LST1)<br />   (SETQ LST1 NIL)<br />   (WHILE (SETQ LST1 (CONS (LIST (CAR LST) (CADR LST)) LST1)<br />                LST (CDR LST)<br />          )<br />   )<br />   (reverse (CDR LST1))<br /> )<br /> <br /> ;;mapcar方法1<br /> (DEFUN T2 (a)<br /> (apply 'mapcar (cons 'list (list a (cdr a))))<br /> )<br /> ;;mapcar方法2<br /> (DEFUN T3 (a)<br /> (mapcar 'LIST a (cdr a))<br /> )<br />

下面是三次测试结果：见证奇迹的时候到了

命令: 100W

while方法1:0.797s
mapcar方法1:0.156s
mapcar方法2:0.156s


命令:
命令:
100W
while方法1:0.812s
mapcar方法1:0.141s
mapcar方法2:0.156s


命令:
命令:
100W
while方法1:0.797s
mapcar方法1:0.156s
mapcar方法2:0.156s


结论：mapcar函数无疑是高效的。差别是很明显的。
           意外的发现是加了APPLY函数竟然不比纯mapcar函数慢，甚至隐隐要快上一丝。。 APPLY函数最高效。它对函数没任何影响。

wowan1314

1、while foreach repeat三个循环遍历函数while最高效foreach次之。但差别不大。可忽略。
2、mapcar比任何循环都要高效很多。
3、APPLY对函数影响甚微。加上他代码看着费事了。

cy956

wowan1314 发表于 2013-5-27 07:51
再来测试mapcar写法。 一个是加APPLY。一个是直接mapcar.下面是三次测试结果：见证奇迹的时候到了

命 ...

同样的内容结果不一样，电脑在后台走私活？

wowan1314

呵呵。搞不懂了。 你可以自己再测测。 我也觉的不加APPLY应该会快点呀。

其实最意外的是APPLY对MAPCAR函数基本没影响。速度基本没区别。