大数据时代.代码不快就崩溃.关于Lisp执行效率探究

鱼与熊掌

Lisp是在Arx托管的代码.那么Lisp的执行效率其实还是蛮低的.
今天一个代码的运行时间本来要1800秒.后来优化了半天优化到了55秒.
其中的差距可想而知,所以探究Lisp的执行效率问题很有必要.
下面是我做的探究.
Vl-remove或者Vl-remove-if-not执行效率高于Repeat
并且Mapcar>Repeat
其他的While更不用说.
总体来说
Vl-remove-if和Vl-remove-if-not的效率高于Mapcar >Repeat .至于While 或者Foreach 没做探究.While肯定比Repeat慢.

下面附上代码

dcl1214

再来一个效率研究心得

1. (setq str
   
2.        "甲1子2、3乙4丑5 6—7—8 9海0中-金=
   
3. 丙Q寅W、E丁R卯T Y—U—I O炉P中[火]
   
4. \戊A辰S、D己F巳G H—J—K L大Z林X木C
   
5. V庚B午N、M辛,未. /—— 路旁土1
   
6. 2壬3申4、5癸6酉7 8—9—0 -剑=锋A金S
   
7. D甲F戌G、H乙J亥K L—Z—X C山V头B火N
   
8. M丙,子.、/丁1丑2 3—4—5 6涧7下8水9
   
9. 0戊-寅=、A己S卯D F—G—H J城K头L土Z
   
10. X庚C辰V、B辛N巳M ,—./—1 2白3蜡4金5
    
11. 6壬7午8、9癸0未- =Q—W—E R杨T柳Y木U
    
12. I甲O申P、[乙]\酉A S—D—F G泉H中J水K
    
13. L丙Z戌X、C丁V亥B N—M—, .屋上1土2
    
14. 3戊4子5、6己7丑8 9—0—- =霹Q雳W火E
    
15. R庚T寅Y、U辛I卯O P—[—] \松A柏S木D
    
16. F壬G辰H、J癸K巳L Z—X—C V长B流N水M
    
17. ,甲.午/、乙1未2 3—4—5 6沙7中8金9
    
18. 0丙-申=、丁Q酉W E—R—T Y山U下I火O
    
19. P戊[戌]、\A己S亥D F—G—H J平K地L木
    
20. 庚Z子X、C辛V丑B N—M—, .壁/上1土2
    
21. 3壬4寅5、6癸7卯8 9—0—- =金Q箔W金E
    
22. R甲T辰Y、U乙I巳O P—[—]\ 覆A灯S火D
    
23. F丙G午H、J丁K未L —— ZX天C河V水B
    
24. N戊M申,、.己/酉1 23—4—5 67大8驿9土0
    
25. -庚=戌Q、W辛E亥R T—Y—U I钗O钏P金A
    
26. S壬D子F、G癸H丑J K—L—Z X桑C柘V木B
    
27. N甲M寅,、.乙/卯1 2—3—4 5大6溪7水8
    
28. 9丙0辰-=、Q丁W巳E R—T—Y U沙I中O土P
    
29. [戊]午]\、A己S未D F—G—H J天K上L火;
    
30. '庚ZX申C、V辛B酉N M—,—. /石12榴3木4
    
31. 5壬6戌7、8癸9亥0 -—=—Q W大E海R水T"
    
32. )
    
33. 
    
34. (repeat 5 (setq str (strcat str str)))
    
35. (strlen str)
    
36. (setq TIME0 (getvar "millisecs"))
    
37. (repeat  500000
    
38.   (vl-string-position (ascii "/") str)
    
39. )
    
40. (print
    
41.   (strcat "vl-string-position耗时:"
    
42.     (vl-princ-to-string
    
43.       (setq hs (/ (- (getvar "millisecs") TIME0 0.0) 1000.0))
    
44.     )
    
45.   )
    
46. )
    
47. (setq TIME0 (getvar "millisecs"))
    
48. (repeat  500000
    
49.   (wcmatch str "[,*`/*,]")
    
50. )
    
51. (print
    
52.   (strcat "wcmatch耗时:"
    
53.     (vl-princ-to-string
    
54.       (setq hs (/ (- (getvar "millisecs") TIME0 0.0) 1000.0))
    
55.     )
    
56.   )
    
57. )
    
58. 
    
59. 
    
60. 
    

(setq str<br />        "甲1子2、3乙4丑5 6—7—8 9海0中-金=<br /> 丙Q寅W、E丁R卯T Y—U—I O炉P中[火]<br /> \戊A辰S、D己F巳G H—J—K L大Z林X木C<br /> V庚B午N、M辛,未. /—— 路旁土1<br /> 2壬3申4、5癸6酉7 8—9—0 -剑=锋A金S<br /> D甲F戌G、H乙J亥K L—Z—X C山V头B火N<br /> M丙,子.、/丁1丑2 3—4—5 6涧7下8水9<br /> 0戊-寅=、A己S卯D F—G—H J城K头L土Z<br /> X庚C辰V、B辛N巳M ,—./—1 2白3蜡4金5<br /> 6壬7午8、9癸0未- =Q—W—E R杨T柳Y木U<br /> I甲O申P、[乙]\酉A S—D—F G泉H中J水K<br /> L丙Z戌X、C丁V亥B N—M—, .屋上1土2<br /> 3戊4子5、6己7丑8 9—0—- =霹Q雳W火E<br /> R庚T寅Y、U辛I卯O P—[—] \松A柏S木D<br /> F壬G辰H、J癸K巳L Z—X—C V长B流N水M<br /> ,甲.午/、乙1未2 3—4—5 6沙7中8金9<br /> 0丙-申=、丁Q酉W E—R—T Y山U下I火O<br /> P戊[戌]、\A己S亥D F—G—H J平K地L木<br /> 庚Z子X、C辛V丑B N—M—, .壁/上1土2<br /> 3壬4寅5、6癸7卯8 9—0—- =金Q箔W金E<br /> R甲T辰Y、U乙I巳O P—[—]\ 覆A灯S火D<br /> F丙G午H、J丁K未L —— ZX天C河V水B<br /> N戊M申,、.己/酉1 23—4—5 67大8驿9土0<br /> -庚=戌Q、W辛E亥R T—Y—U I钗O钏P金A<br /> S壬D子F、G癸H丑J K—L—Z X桑C柘V木B<br /> N甲M寅,、.乙/卯1 2—3—4 5大6溪7水8<br /> 9丙0辰-=、Q丁W巳E R—T—Y U沙I中O土P<br /> [戊]午]\、A己S未D F—G—H J天K上L火;<br /> '庚ZX申C、V辛B酉N M—,—. /石12榴3木4<br /> 5壬6戌7、8癸9亥0 -—=—Q W大E海R水T"<br /> )<br /> <br /> (repeat 5 (setq str (strcat str str)))<br /> (strlen str)<br /> (setq TIME0 (getvar "millisecs"))<br /> (repeat  500000<br />   (vl-string-position (ascii "/") str) <br /> )<br /> (print<br />   (strcat "vl-string-position耗时:"<br />     (vl-princ-to-string<br />       (setq hs (/ (- (getvar "millisecs") TIME0 0.0) 1000.0))<br />     )<br />   )<br /> )<br /> (setq TIME0 (getvar "millisecs"))<br /> (repeat  500000<br />   (wcmatch str "[,*`/*,]")<br /> )<br /> (print<br />   (strcat "wcmatch耗时:"<br />     (vl-princ-to-string<br />       (setq hs (/ (- (getvar "millisecs") TIME0 0.0) 1000.0))<br />     )<br />   )<br /> )<br /> <br /> <br /> <br />

dcl1214

我也来一个效率研究心得

1. (setq TIME0 (getvar "millisecs"))
   
2. (SETQ i 0)
   
3. (REPEAT  50000000
   
4.   (if (not jb)(progn (setq jb (itoa i)) (setq i (1+ i))))
   
5. )
   
6. (setq hs (/ (- (getvar "millisecs") TIME0 0.0) 1000.0))
   
7. (print(strcat "有not耗时:"(vl-princ-to-string hs)))
   
8. ;有一个not，执行效率低
   
9. 
   
10. (setq TIME0 (getvar "millisecs"))
    
11. (SETQ i 0)
    
12. (REPEAT  50000000  
    
13.   (if jb ()(progn (setq jb (itoa i)) (setq i (1+ i))))
    
14. )
    
15. (setq hs (/ (- (getvar "millisecs") TIME0 0.0) 1000.0))
    
16. (print(strcat "无not耗时:"(vl-princ-to-string hs)))
    
17. ;没有not，执行效率高，而且编译vlx后，估计不同，有待测试

(setq TIME0 (getvar "millisecs"))<br /> (SETQ i 0)<br /> (REPEAT  50000000<br />   (if (not jb)(progn (setq jb (itoa i)) (setq i (1+ i))))<br /> )<br /> (setq hs (/ (- (getvar "millisecs") TIME0 0.0) 1000.0))<br /> (print(strcat "有not耗时:"(vl-princ-to-string hs)))<br /> ;有一个not，执行效率低<br /> <br /> (setq TIME0 (getvar "millisecs"))<br /> (SETQ i 0)<br /> (REPEAT  50000000  <br />   (if jb ()(progn (setq jb (itoa i)) (setq i (1+ i))))<br /> )<br /> (setq hs (/ (- (getvar "millisecs") TIME0 0.0) 1000.0))<br /> (print(strcat "无not耗时:"(vl-princ-to-string hs)))<br /> ;没有not，执行效率高，而且编译vlx后，估计不同，有待测试

明_明

感谢分享宝贵经验！

鱼与熊掌

不好意思.之前上的代码可能有点错误.修正了一下.
总体来说  尽量使用Mapcar 或者vl-remove-if-not这样的自带分层函数来优化代码
可以加速非常多.

434939575

多谢大侠分享！咱们享受了[em0]

鱼与熊掌

434939575 发表于 2015-6-5 13:59
多谢大侠分享！咱们享受了

发现Foreach和Mapcar一样  没什么区别 之前有人说Foreach 执行效率问题..其实应该没有

edata

mapcar有个好出，如果批量生成图形，那么需要一个CTRL+Z即可返回，但不确定包含command函数是否可以。

masterlong

某些情况下cad环境
对程序的运行也会有重大影响
比如附赠工具中的burst(炸块同时属性转文字）
假设选100个块运行需要0.5秒
选200个块运行需要2秒
选500个块运行需要20秒
选5000个块运行需要30分钟

曾经使出浑身解数也只是改善而不能解决
最终彻底解决所采用的办法是
计数至1000时保存关闭再打开再运行

或许这个例子和楼主所讨论的
属于不同的技术层面
但最终目的是基本一致的
所以适当的情况转换下思路
或许会有意外的收获

鱼与熊掌

masterlong 发表于 2015-6-10 23:06
某些情况下cad环境
对程序的运行也会有重大影响
比如附赠工具中的burst(炸块同时属性转文字）

这个代码的时间运算量  不是线性的  优化一下吧.  
可以自己写代优化

77077

对熊掌的说法略有不同。

2. ;计时器开始******************
   
3. (defun cx-jsq () ;计时器开始
   
4.   (setq time_tmp (getvar "TDUSRTIMER"))
   
5. )
   
6. ;计时器结束*****************
   
7. (defun cx-end-jsq () ;计时器结束
   
8.   (setq  time_tmp (- (getvar "TDUSRTIMER") time_tmp)
   
9.     ;获得时间，单位小时
   
10.     time_tmp (* time_tmp 86400)
    
11.   ) ;秒为单位
    
12.   (prompt (strcat "用时" (rtos time_tmp 2 4) "秒"))
    
13.   (setq time_tmp nil)
    
14.   (princ)
    
15. )
    
16. ;;;准备测试的数据表
    
17. (defun c:xx()
    
18.   (setq all_lst nil)
    
19.   (setq lst '((0 0 0)(1 1 0)))
    
20.   (repeat 10000
    
21.     (setq all_lst(cons lst all_lst))
    
22.   )
    
23. (princ)
    
24. )
    
25. ;;;repeat
    
26. (defun c:xx1()  
    
27.   (setq all_lst1 all_lst)
    
28.   (setq n (length all_lst1))
    
29.   (cx-jsq)
    
30.   (repeat n
    
31.     (setq x (car all_lst1))
    
32.     (entmake (list '(0 . "line") (cons 10 (car x)) (cons 11 (cadr x))))
    
33.     (setq ll_lst1 (cdr ll_lst1))
    
34.   )
    
35.   (cx-end-jsq)
    
36. (princ)
    
37. )
    
38. ;;;foreach
    
39. (defun c:xx2()  
    
40.   (setq all_lst1 all_lst)
    
41.   (cx-jsq)
    
42.   (foreach x all_lst1
    
43.     (entmake (list '(0 . "line") (cons 10 (car x)) (cons 11 (cadr x))))
    
44.   )
    
45.   (cx-end-jsq)
    
46. (princ)
    
47. )
    
48. ;;;mapcar
    
49. (defun c:xx3()  
    
50.   (setq all_lst1 all_lst)
    
51.   (cx-jsq)
    
52.   (mapcar '(lambda (x)
    
53.     (entmake (list '(0 . "line") (cons 10 (car x)) (cons 11 (cadr x)))))
    
54.     all_lst1
    
55.   )
    
56.   (cx-end-jsq)
    
57. (princ)
    
58. )

;计时器开始******************<br /> (defun cx-jsq () ;计时器开始<br />   (setq time_tmp (getvar "TDUSRTIMER"))<br /> )<br /> ;计时器结束*****************<br /> (defun cx-end-jsq () ;计时器结束<br />   (setq  time_tmp (- (getvar "TDUSRTIMER") time_tmp)<br />     ;获得时间，单位小时<br />     time_tmp (* time_tmp 86400)<br />   ) ;秒为单位<br />   (prompt (strcat "用时" (rtos time_tmp 2 4) "秒"))<br />   (setq time_tmp nil)<br />   (princ)<br /> )<br /> ;;;准备测试的数据表<br /> (defun c:xx()<br />   (setq all_lst nil)<br />   (setq lst '((0 0 0)(1 1 0)))<br />   (repeat 10000<br />     (setq all_lst(cons lst all_lst))<br />   )<br /> (princ)<br /> )<br /> ;;;repeat<br /> (defun c:xx1()  <br />   (setq all_lst1 all_lst)<br />   (setq n (length all_lst1))<br />   (cx-jsq)<br />   (repeat n<br />     (setq x (car all_lst1))<br />     (entmake (list '(0 . "line") (cons 10 (car x)) (cons 11 (cadr x))))<br />     (setq ll_lst1 (cdr ll_lst1))<br />   )<br />   (cx-end-jsq)<br /> (princ)<br /> )<br /> ;;;foreach<br /> (defun c:xx2()  <br />   (setq all_lst1 all_lst)<br />   (cx-jsq)<br />   (foreach x all_lst1<br />     (entmake (list '(0 . "line") (cons 10 (car x)) (cons 11 (cadr x))))<br />   )<br />   (cx-end-jsq)<br /> (princ)<br /> )<br /> ;;;mapcar<br /> (defun c:xx3()  <br />   (setq all_lst1 all_lst)<br />   (cx-jsq)<br />   (mapcar '(lambda (x)<br />     (entmake (list '(0 . "line") (cons 10 (car x)) (cons 11 (cadr x)))))<br />     all_lst1<br />   )<br />   (cx-end-jsq)<br /> (princ)<br /> )

测试结果很明显和熊掌的不一样~~~~
命令: xx
命令:
命令: xx1
用时0.202秒
命令:
命令: xx2
用时0.221秒
命令:
命令: xx3
用时0.24秒
命令:

77077

再增加到10w个测试了一遍,并增加while的比较：

2. ;;;while
   
3. (defun c:xx4()  
   
4.   (setq all_lst1 all_lst)
   
5.   (setq n (length all_lst1))
   
6.   (cx-jsq)
   
7.   (while (setq x (car all_lst1))
   
8.     (entmake (list '(0 . "line") (cons 10 (car x)) (cons 11 (cadr x))))
   
9.     (setq all_lst1 (cdr all_lst1))
   
10.   )
    
11.   (cx-end-jsq)
    
12. (princ)
    
13. )

;;;while<br /> (defun c:xx4()  <br />   (setq all_lst1 all_lst)<br />   (setq n (length all_lst1))<br />   (cx-jsq)<br />   (while (setq x (car all_lst1))<br />     (entmake (list '(0 . "line") (cons 10 (car x)) (cons 11 (cadr x))))<br />     (setq all_lst1 (cdr all_lst1))<br />   )<br />   (cx-end-jsq)<br /> (princ)<br /> )

命令: xx
命令:
命令: xx1 用时1.904秒
命令:
命令: xx2 用时1.868秒
命令:
命令: xx3 用时1.963秒
命令:
命令: xx4 用时1.849秒
命令:

阿霸jun

循环内的代码其实也比较重要，我以前测试的感觉mapcar在数量很大的情况下比较快，跟楼上的不一样，搞不清到底谁快了，一般情况下还是差不多吧，还要考虑代码的易读和易写