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

77077

2. ;计时器开始******************
   
3. (defun cx-jsq ()
   
4.   (setq time_tmp (getvar "TDUSRTIMER"))
   
5. )
   
6. (defun cx-end-jsq ()
   
7.   (setq        time_tmp (- (getvar "TDUSRTIMER") time_tmp)
   
8.                 time_tmp (* time_tmp 86400)
   
9.   )
   
10.   (prompt (strcat "用时" (rtos time_tmp 2 4) "秒"))
    
11.   (setq time_tmp nil)
    
12.   (princ)
    
13. )
    
14. ;准备测试数据
    
15. (defun c:tx1()
    
16.         (cx-jsq)
    
17.         (setq all_lst1 nil)
    
18.         (setq lst '((1 "a") (2 "b") (3 "c")))
    
19.         (repeat 100000 ;10w个原子
    
20.           (setq all_lst1(cons lst all_lst1))
    
21.         )
    
22.         (cx-end-jsq)
    
23.   (princ)
    
24. )
    
25. ;开始测试，都让他们删除掉“0”开头的数据
    
26. ;mapcar
    
27. (defun c:tt1()
    
28.         (cx-jsq)
    
29.         (setq all_lst all_lst1)
    
30.         (setq lstx1 nil)
    
31.         (mapcar '(lambda(x) (if(= 1 (car x)) (setq lstx1 (cons x lstx1))))all_lst)
    
32.   (cx-end-jsq)
    
33.   (princ)
    
34. )
    
35. ;l-remove-if-not
    
36. (defun c:tt2()
    
37.         (cx-jsq)
    
38.         (setq all_lst all_lst1)
    
39.         (setq lstx2 nil)
    
40.         (setq lstx2(vl-remove-if-not '(lambda(x) (= 1 (car x))) all_lst))
    
41.   (cx-end-jsq)
    
42.   (princ)
    
43. )
    
44. ;repeat
    
45. (defun c:tt3()
    
46.         (cx-jsq)
    
47.         (setq all_lst all_lst1)
    
48.         (setq lstx3 nil)
    
49.         (setq n (length all_lst))
    
50.         (repeat n
    
51.                 (setq x (car all_lst))
    
52.                 (if(= 1(car x)) (setq lstx3 (cons x lstx3)))
    
53.                 (setq all_lst (cdr all_lst))
    
54.         )
    
55.   (cx-end-jsq)
    
56.   (princ)
    
57. )
    
58. ;while
    
59. (defun c:tt4()
    
60.         (cx-jsq)
    
61.         (setq all_lst all_lst1)
    
62.         (setq lstx4 nil)
    
63.         (setq n (length all_lst))
    
64.         (while (setq x (car all_lst))
    
65.                 (if(= 1(car x)) (setq lstx4 (cons x lstx4)))
    
66.                 (setq all_lst (cdr all_lst))
    
67.         )
    
68.   (cx-end-jsq)
    
69.   (princ)
    
70. )
    
71. ;foreach
    
72. (defun c:tt5()
    
73.         (cx-jsq)
    
74.         (setq all_lst all_lst1)
    
75.         (setq lstx4 nil)
    
76.         (setq n (length all_lst))
    
77.         (foreach x all_lst
    
78.                 (if(= 1(car x)) (setq lstx5 (cons x lstx5)))
    
79.         )
    
80.   (cx-end-jsq)
    
81.   (princ)
    
82. )

;计时器开始******************<br /> (defun cx-jsq ()<br />   (setq time_tmp (getvar "TDUSRTIMER"))<br /> )<br /> (defun cx-end-jsq ()<br />   (setq        time_tmp (- (getvar "TDUSRTIMER") time_tmp)<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:tx1()<br />         (cx-jsq)<br />         (setq all_lst1 nil)<br />         (setq lst '((1 "a") (2 "b") (3 "c")))<br />         (repeat 100000 ;10w个原子<br />           (setq all_lst1(cons lst all_lst1))<br />         )<br />         (cx-end-jsq)<br />   (princ)<br /> )<br /> ;开始测试，都让他们删除掉“0”开头的数据<br /> ;mapcar<br /> (defun c:tt1()<br />         (cx-jsq)<br />         (setq all_lst all_lst1)<br />         (setq lstx1 nil)<br />         (mapcar '(lambda(x) (if(= 1 (car x)) (setq lstx1 (cons x lstx1))))all_lst)<br />   (cx-end-jsq)<br />   (princ)<br /> )<br /> ;l-remove-if-not<br /> (defun c:tt2()<br />         (cx-jsq)<br />         (setq all_lst all_lst1)<br />         (setq lstx2 nil)<br />         (setq lstx2(vl-remove-if-not '(lambda(x) (= 1 (car x))) all_lst))<br />   (cx-end-jsq)<br />   (princ)<br /> )<br /> ;repeat<br /> (defun c:tt3()<br />         (cx-jsq)<br />         (setq all_lst all_lst1)<br />         (setq lstx3 nil)<br />         (setq n (length all_lst))<br />         (repeat n<br />                 (setq x (car all_lst))<br />                 (if(= 1(car x)) (setq lstx3 (cons x lstx3)))<br />                 (setq all_lst (cdr all_lst))<br />         )<br />   (cx-end-jsq)<br />   (princ)<br /> )<br /> ;while<br /> (defun c:tt4()<br />         (cx-jsq)<br />         (setq all_lst all_lst1)<br />         (setq lstx4 nil)<br />         (setq n (length all_lst))<br />         (while (setq x (car all_lst))<br />                 (if(= 1(car x)) (setq lstx4 (cons x lstx4)))<br />                 (setq all_lst (cdr all_lst))<br />         )<br />   (cx-end-jsq)<br />   (princ)<br /> )<br /> ;foreach<br /> (defun c:tt5()<br />         (cx-jsq)<br />         (setq all_lst all_lst1)<br />         (setq lstx4 nil)<br />         (setq n (length all_lst))<br />         (foreach x all_lst<br />                 (if(= 1(car x)) (setq lstx5 (cons x lstx5)))<br />         )<br />   (cx-end-jsq)<br />   (princ)<br /> )

第一遍测试
命令: tx1 用时0.064秒
命令:
命令: tt1 用时0.078秒
命令:
命令: tt2 用时0.065秒
命令:
命令: tt3 用时0.088秒
命令:
命令: tt4 用时0.096秒
命令:
命令: tt5 用时0.098秒



第二遍测试
命令: tx1 用时0.052秒
命令:
命令: tt1 用时0.058秒
命令:
命令: tt2 用时0.065秒
命令:
命令: tt3 用时0.092秒
命令:
命令: tt4 用时0.046秒
命令:
命令: tt5 用时0.069秒

ivde

autolisp如果仅是表操作，也就是ARX的输入和输出，涉及到Autocad Object 就有很大区别了，不管是 repeat while mapcar 还是foreach都有自己的用途

sicky111

学习了     

明_明

感谢分享宝贵经验！

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后，估计不同，有待测试

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 />