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

Lisper

cy956 发表于 2013-5-26 21:29
试试这样：
(setq b2(cdr b1)
        b(mapcar 'list b1 b2))

这个基本和11楼的代码一样！
会快那么一丁点！
二者测试结果：
;;(apply 'mapcar (list 'list  a (cdr a)))写法
用时  2.777  秒
;;(mapcar  'list  a (cdr a))写法
用时  2.683  秒

Lispboy

公布结果：

数据10万 整数 表

1. (defun c:t1 ()
   
2.   (setq i 0)
   
3.   (setq ll nil)
   
4.   (repeat 100000
   
5.     (setq ll (cons (setq i (1+ i))
   
6.                    ll
   
7.              )
   
8.     )
   
9.   )
   
10. )
    
11. (defun get-utime () (* 86400.0 (getvar "tdusrtimer")))
    

(defun c:t1 ()<br />   (setq i 0)<br />   (setq ll nil)<br />   (repeat 100000<br />     (setq ll (cons (setq i (1+ i))<br />                    ll<br />              )<br />     )<br />   )<br /> )<br /> (defun get-utime () (* 86400.0 (getvar "tdusrtimer")))<br />

GTJ116600

呵呵，通过此贴，加深了对部分函数的理解，也学会了怎样测试函数运行效率。呵呵，非常好

Lispboy

4楼，炫翔贴的WOWAN1314的代码

1. (defun c:t3 (/ lst1)
   
2.   (setq lst ll)
   
3.   (setq lst1 nil)
   
4.   (setq t1 (get-utime))
   
5.   (while (and
   
6.            (car lst)
   
7.            (cadr lst)
   
8.          )
   
9.     (setq lst1 (cons (list (car lst) (cadr lst)) lst1)
   
10.           lst (cdr lst)
    
11.     )
    
12.   )
    
13.   (setq abc (reverse lst1))
    
14.   (setq t2 (get-utime))
    
15.   (princ "\nUse Time: ")
    
16.   (princ (- t2 t1))
    
17.   (princ " s")
    
18.   (princ)
    
19. )
    
20. 
    

(defun c:t3 (/ lst1)<br />   (setq lst ll)<br />   (setq lst1 nil)<br />   (setq t1 (get-utime))<br />   (while (and<br />            (car lst)<br />            (cadr lst)<br />          )<br />     (setq lst1 (cons (list (car lst) (cadr lst)) lst1)<br />           lst (cdr lst)<br />     )<br />   )<br />   (setq abc (reverse lst1))<br />   (setq t2 (get-utime))<br />   (princ "\nUse Time: ")<br />   (princ (- t2 t1))<br />   (princ " s")<br />   (princ)<br /> )<br /> <br />

1. 命令: t3
   
2. 
   
3. Use Time: 0.134 s
   
4. 
   

命令: t3<br /> <br /> Use Time: 0.134 s<br /> <br />

Lispboy

7l楼，LISPHK， repeat 循环加 nth

1. (defun c:t4 ()
   
2.   (setq i 0
   
3.         l nil
   
4.   )
   
5.   (setq a ll)
   
6.   (setq t1 (get-utime))
   
7.   (setq len (- (length a) 1))
   
8.   (repeat len
   
9.     (setq b (nth i a)
   
10.           i (1+ i)
    
11.           c (nth i a)
    
12.           l (cons (list b c) l)
    
13.     )
    
14.   )
    
15.   (setq abc (reverse l))
    
16.   (setq t2 (get-utime))
    
17.   (princ "\nUse Time: ")
    
18.   (princ (- t2 t1))
    
19.   (princ " s")
    
20.   (princ)
    
21. )
    

(defun c:t4 ()<br />   (setq i 0<br />         l nil<br />   )<br />   (setq a ll)<br />   (setq t1 (get-utime))<br />   (setq len (- (length a) 1))<br />   (repeat len<br />     (setq b (nth i a)<br />           i (1+ i)<br />           c (nth i a)<br />           l (cons (list b c) l)<br />     )<br />   )<br />   (setq abc (reverse l))<br />   (setq t2 (get-utime))<br />   (princ "\nUse Time: ")<br />   (princ (- t2 t1))<br />   (princ " s")<br />   (princ)<br /> )<br />

1. 
   
2. 命令: t4
   
3. 
   
4. Use Time: 134.831 s
   

复制代码

Lispboy

9#楼， woan1314

1. (DEFUN c:t6 ( / LST1 T11)
   
2.   (DEFUN T11 (LST)
   
3.     (AND
   
4.       (cadr lst)
   
5.       (setq lst1 (cons (list (car lst) (cadr lst)) lst1)
   
6.             lst (cdr lst)
   
7.       )
   
8.       (T11 LST)
   
9.     )
   
10.   )
    
11.   (setq lst ll)
    
12.   (SETQ LST1 NIL)
    
13.   (setq t1 (get-utime))
    
14.   (T11 LST)
    
15.   
    
16.   (setq abc (reverse lst1))
    
17.   (setq t2 (get-utime))
    
18.   (princ "\nUse Time: ")
    
19.   (princ (- t2 t1))
    
20.   (princ " s")
    
21.   (princ)
    
22. )
    

(DEFUN c:t6 ( / LST1 T11)<br />   (DEFUN T11 (LST)<br />     (AND<br />       (cadr lst)<br />       (setq lst1 (cons (list (car lst) (cadr lst)) lst1)<br />             lst (cdr lst)<br />       )<br />       (T11 LST)<br />     )<br />   )<br />   (setq lst ll)<br />   (SETQ LST1 NIL)<br />   (setq t1 (get-utime))<br />   (T11 LST)<br />   <br />   (setq abc (reverse lst1))<br />   (setq t2 (get-utime))<br />   (princ "\nUse Time: ")<br />   (princ (- t2 t1))<br />   (princ " s")<br />   (princ)<br /> )<br />

1. 命令: t6
   
2. 出现硬错误 ***
   
3. 已达内部堆栈限制 (模拟)
   

命令: t6<br /> 出现硬错误 ***<br /> 已达内部堆栈限制 (模拟)<br />

Lispboy

6# Free-lancer

1. (defun c:t7 ()
   
2.   (setq lst ll)
   
3.   (setq t1 (get-utime))
   
4.   (setq abc (mapcar
   
5.               '(lambda (a b)
   
6.                  (list a b)
   
7.                )
   
8.               lst
   
9.               (cdr lst)
   
10.             )
    
11.   )
    
12.   (setq t2 (get-utime))
    
13.   (princ "\nUse Time: ")
    
14.   (princ (- t2 t1))
    
15.   (princ " s")
    
16.   (princ)
    
17. )
    

(defun c:t7 ()<br />   (setq lst ll)<br />   (setq t1 (get-utime))<br />   (setq abc (mapcar<br />               '(lambda (a b)<br />                  (list a b)<br />                )<br />               lst<br />               (cdr lst)<br />             )<br />   )<br />   (setq t2 (get-utime))<br />   (princ "\nUse Time: ")<br />   (princ (- t2 t1))<br />   (princ " s")<br />   (princ)<br /> )<br />

1. 命令: t7
   
2. 
   
3. Use Time: 0.049 s
   

命令: t7<br /> <br /> Use Time: 0.049 s<br />

cy956

2. (defun c:t1 ()
   
3.   (setq i 0)
   
4.   (setq ll nil)
   
5.   (repeat 100000
   
6.     (setq ll (cons (setq i (1+ i))
   
7.                    ll
   
8.              )
   
9.     )
   
10.   )
    
11. )
    
12. (defun get-utime () (* 86400.0 (getvar "tdusrtimer")))
    
13. 
    
14. 
    
15. (defun c:t3 (/ lst1)
    
16.   (setq lst ll)
    
17.   (setq lst1 nil)
    
18.   (setq t1 (get-utime))
    
19.   (while (and
    
20.            (car lst)
    
21.            (cadr lst)
    
22.          )
    
23.     (setq lst1 (cons (list (car lst) (cadr lst)) lst1)
    
24.           lst (cdr lst)
    
25.     )
    
26.   )
    
27.   (setq abc (reverse lst1))
    
28.   (setq t2 (get-utime))
    
29.   (princ "\nUse Time: ")
    
30.   (princ (- t2 t1))
    
31.   (princ " s")
    
32.   (princ)
    
33. )
    
34. 
    
35. (defun c:t31 (/ lst1)
    
36.   (setq lst ll
    
37.   lst1(cdr lst))
    
38.   (setq t1 (get-utime)
    
39.   b2(mapcar 'list lst lst1))
    
40.   (setq t2 (get-utime))
    
41.   (princ "\nUse Time: ")
    
42.   (princ (- t2 t1))
    
43.   (princ " s")
    
44.   (princ)
    
45. )
    
46. 
    

(defun c:t1 ()<br />   (setq i 0)<br />   (setq ll nil)<br />   (repeat 100000<br />     (setq ll (cons (setq i (1+ i))<br />                    ll<br />              )<br />     )<br />   )<br /> )<br /> (defun get-utime () (* 86400.0 (getvar "tdusrtimer")))<br /> <br /> <br /> (defun c:t3 (/ lst1)<br />   (setq lst ll)<br />   (setq lst1 nil)<br />   (setq t1 (get-utime))<br />   (while (and<br />            (car lst)<br />            (cadr lst)<br />          )<br />     (setq lst1 (cons (list (car lst) (cadr lst)) lst1)<br />           lst (cdr lst)<br />     )<br />   )<br />   (setq abc (reverse lst1))<br />   (setq t2 (get-utime))<br />   (princ "\nUse Time: ")<br />   (princ (- t2 t1))<br />   (princ " s")<br />   (princ)<br /> )<br /> <br /> (defun c:t31 (/ lst1)<br />   (setq lst ll<br />   lst1(cdr lst))<br />   (setq t1 (get-utime)<br />   b2(mapcar 'list lst lst1))<br />   (setq t2 (get-utime))<br />   (princ "\nUse Time: ")<br />   (princ (- t2 t1))<br />   (princ " s")<br />   (princ)<br /> )<br /> <br />

c:t3-->Use Time: 0.453 s
c:t31-->Use Time: 0.063 s，

Lispboy

11#  anderway

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

(defun c:t8 ()<br />   (setq a ll)<br />   (setq t1 (get-utime))<br />   (setq abc (apply<br />               'mapcar<br />               (cons 'list (list a (cdr a)))<br />             )<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.029 s
   

命令:<br /> T8<br /> Use Time: 0.029 s<br />

Lispboy

14# wowoan

1. (DEFUN c:t9( / LST)
   
2.   (setq a ll)
   
3.   (SETQ LST NIL)
   
4.   (setq t1 (get-utime))
   
5.   (foreach b a
   
6.     (setq lst (cons (list b (cadr a)) lst)
   
7.           a (cdr a)
   
8.     )
   
9.   )
   
10.   (setq abc(reverse (CDR LST)))
    
11.   (setq t2 (get-utime))
    
12.   (princ "\nUse Time: ")
    
13.   (princ (- t2 t1))
    
14.   (princ " s")
    
15.   (princ)
    
16. )
    

(DEFUN c:t9( / LST)<br />   (setq a ll)<br />   (SETQ LST NIL)<br />   (setq t1 (get-utime))<br />   (foreach b a<br />     (setq lst (cons (list b (cadr a)) lst)<br />           a (cdr a)<br />     )<br />   )<br />   (setq abc(reverse (CDR LST)))<br />   (setq t2 (get-utime))<br />   (princ "\nUse Time: ")<br />   (princ (- t2 t1))<br />   (princ " s")<br />   (princ)<br /> )<br />

1. 命令:
   
2. T9
   
3. Use Time: 0.098 s
   

命令:<br /> T9<br /> Use Time: 0.098 s<br />

Lispboy

18# newer

1. (defun c:t10 ()
   
2.   (setq lst ll)
   
3.   (setq t1 (get-utime))
   
4.   
   
5.   (while (cdr lst)
   
6.     (setq l (cons (list (car lst) (cadr lst)) l))
   
7.     (setq lst (cdr lst))
   
8.   )
   
9.   (setq abc (reverse l))
   
10.   (setq t2 (get-utime))
    
11.   (princ "\nUse Time: ")
    
12.   (princ (- t2 t1))
    
13.   (princ " s")
    
14.   (princ)
    
15. )
    

(defun c:t10 ()<br />   (setq lst ll)<br />   (setq t1 (get-utime))<br />   <br />   (while (cdr lst)<br />     (setq l (cons (list (car lst) (cadr lst)) l))<br />     (setq lst (cdr lst))<br />   )<br />   (setq abc (reverse l))<br />   (setq t2 (get-utime))<br />   (princ "\nUse Time: ")<br />   (princ (- t2 t1))<br />   (princ " s")<br />   (princ)<br /> )<br />

1. T10
   
2. Use Time: 0.107 s
   

T10<br /> Use Time: 0.107 s<br />

Lispboy

20# 夜来风雨声

1. (defun c:t11 ()
   
2.   (defun split (l)
   
3.     (if (cdr l)
   
4.       (cons (list (car l) (cadr l)) (split (cdr l)))
   
5.     )
   
6.   )
   
7.   (setq abc (split ll))
   
8. )
   

(defun c:t11 ()<br />   (defun split (l)<br />     (if (cdr l)<br />       (cons (list (car l) (cadr l)) (split (cdr l)))<br />     )<br />   )<br />   (setq abc (split ll))<br /> )<br />

1. 命令: t11
   
2. 出现硬错误 ***
   
3. 已达内部堆栈限制 (模拟)
   
4. 命令:
   

命令: t11<br /> 出现硬错误 ***<br /> 已达内部堆栈限制 (模拟)<br /> 命令:<br />

cy956

t8我试了只有0.015，目前这个最快吧:)

Lispboy

cy956 发表于 2013-5-26 22:21
t8我试了只有0.015，目前这个最快吧

是的，T8 最快。 NEWER的APPEND的，现在还没出来呢。在等。

Free-Lancer

测试时打开vlide和关闭也是有很大区别的来自: Android客户端