大数据时代.代码不快就崩溃.关于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

学习了     

明_明

感谢分享宝贵经验！