repeat vl-remove-if foreach while条件过滤速度测试

caiqs

不知道售价是干什么，论坛就是开放的最好，何必给新人那么多的限制



;;;开发过程，图元多时对速度要求较高，特写此程序测试
;;;师兄:QQ 361865648

;;;实验结果：vl-remove-if最快，foreach次之
;;;repeat和while每次都一样

Gu_xl

tt1和tt4慢的原因并不在于是repeat 和while,而是在与其用了nth函数！将TT1和TT4修改一下，不用nth,速度极大提高：

1. (defun c:tt1 (/ s seconds lst mylst i s2 seconds2)
   
2.   (setq s (getvar "DATE"))
   
3.   (setq seconds (* 86400.0 (- s (fix s))))
   
4.   (setq lst (ATOMS-FAMILY 1))
   
5.   (setq n(length lst) lst1 lst)
   
6.   (repeat 100
   
7.     (setq i 0
   
8.     mylst  nil
   
9.     lst1 lst
   
10.     )
    
11.     (repeat n
    
12.       ;(setq thisitm (nth i lst)
    
13. ;      i      (1+ i)
    
14.       ;)
    
15.       (setq thisitm (car lst1) lst1 (cdr lst1))
    
16.       (if (= "A" (substr thisitm 1 1))
    
17.   (setq mylst (cons thisitm mylst))
    
18.       )
    
19.     )
    
20.   )
    
21. (setq mylst (REVERSE ylst));_这行对速度基本没影响
    
22.   (setq s2 (getvar "DATE"))
    
23.   (setq seconds2 (* 86400.0 (- s2 (fix s2))))
    
24.   (princ
    
25.     (strcat "\n tt1 运行时间：" (rtos (- seconds2 seconds) 2 2) " 秒")
    
26.   )
    
27. )
    
28. 
    
29. (defun c:tt4 (/ i len s seconds lst mylst itm s2 seconds2)
    
30.   (setq s (getvar "DATE"))
    
31.   (setq seconds (* 86400.0 (- s (fix s))))
    
32.   (setq lst (ATOMS-FAMILY 1))
    
33.    (setq len(length lst) )
    
34.   (repeat 100
    
35.     (setq mylst nil i 0 lst1 lst)
    
36.    
    
37.     (while (< i len)
    
38.     ;(setq itm(nth i lst))
    
39.       (setq itm (car lst1) lst1 (cdr lst1))
    
40.       (if (= "A" (substr itm 1 1))
    
41.   (setq mylst (cons itm mylst))
    
42.   )
    
43.       (setq i(1+ i))
    
44.   )
    
45.     )
    
46.   (setq mylst (REVERSE mylst));_这行对速度基本没影响
    
47.   (setq s2 (getvar "DATE"))
    
48.   (setq seconds2 (* 86400.0 (- s2 (fix s2))))
    
49.   (princ
    
50.     (strcat "\ntt3 运行时间：" (rtos (- seconds2 seconds) 2 2) " 秒")
    
51.   )
    
52. )

(defun c:tt1 (/ s seconds lst mylst i s2 seconds2)<br />   (setq s (getvar "DATE"))<br />   (setq seconds (* 86400.0 (- s (fix s))))<br />   (setq lst (ATOMS-FAMILY 1))<br />   (setq n(length lst) lst1 lst)<br />   (repeat 100<br />     (setq i 0<br />     mylst  nil<br />     lst1 lst<br />     )<br />     (repeat n<br />       ;(setq thisitm (nth i lst)<br /> ;      i      (1+ i)<br />       ;)<br />       (setq thisitm (car lst1) lst1 (cdr lst1))<br />       (if (= "A" (substr thisitm 1 1))<br />   (setq mylst (cons thisitm mylst))<br />       )<br />     )<br />   )<br /> (setq mylst (REVERSE ylst));_这行对速度基本没影响<br />   (setq s2 (getvar "DATE"))<br />   (setq seconds2 (* 86400.0 (- s2 (fix s2))))<br />   (princ<br />     (strcat "\n tt1 运行时间：" (rtos (- seconds2 seconds) 2 2) " 秒")<br />   )<br /> )<br /> <br /> (defun c:tt4 (/ i len s seconds lst mylst itm s2 seconds2)<br />   (setq s (getvar "DATE"))<br />   (setq seconds (* 86400.0 (- s (fix s))))<br />   (setq lst (ATOMS-FAMILY 1))<br />    (setq len(length lst) )<br />   (repeat 100<br />     (setq mylst nil i 0 lst1 lst)<br />    <br />     (while (< i len)<br />     ;(setq itm(nth i lst))<br />       (setq itm (car lst1) lst1 (cdr lst1))<br />       (if (= "A" (substr itm 1 1))<br />   (setq mylst (cons itm mylst))<br />   )<br />       (setq i(1+ i))<br />   )<br />     )<br />   (setq mylst (REVERSE mylst));_这行对速度基本没影响<br />   (setq s2 (getvar "DATE"))<br />   (setq seconds2 (* 86400.0 (- s2 (fix s2))))<br />   (princ<br />     (strcat "\ntt3 运行时间：" (rtos (- seconds2 seconds) 2 2) " 秒")<br />   )<br /> )

还可以使用mapcar函数来测试：

1. (defun c:tt5 (/ i len s seconds lst mylst itm s2 seconds2)
   
2.   (setq s (getvar "DATE"))
   
3.   (setq seconds (* 86400.0 (- s (fix s))))
   
4.   (setq lst (ATOMS-FAMILY 1))
   
5.    (setq len(length lst) )
   
6.   (repeat 100
   
7.     (setq mylst nil i 0 )
   
8.    (mapcar '(lambda (itm)
   
9.         (if (= "A" (substr itm 1 1))
   
10.   (setq mylst (cons itm mylst))
    
11.   )
    
12.         )
    
13.      lst)
    
14.     )
    
15.   (setq mylst (REVERSE mylst));_这行对速度基本没影响
    
16.   (setq s2 (getvar "DATE"))
    
17.   (setq seconds2 (* 86400.0 (- s2 (fix s2))))
    
18.   (princ
    
19.     (strcat "\ntt3 运行时间：" (rtos (- seconds2 seconds) 2 2) " 秒")
    
20.   )
    
21. )

(defun c:tt5 (/ i len s seconds lst mylst itm s2 seconds2)<br />   (setq s (getvar "DATE"))<br />   (setq seconds (* 86400.0 (- s (fix s))))<br />   (setq lst (ATOMS-FAMILY 1))<br />    (setq len(length lst) )<br />   (repeat 100<br />     (setq mylst nil i 0 )<br />    (mapcar '(lambda (itm)<br />         (if (= "A" (substr itm 1 1))<br />   (setq mylst (cons itm mylst))<br />   )<br />         )<br />      lst)<br />     )<br />   (setq mylst (REVERSE mylst));_这行对速度基本没影响<br />   (setq s2 (getvar "DATE"))<br />   (setq seconds2 (* 86400.0 (- s2 (fix s2))))<br />   (princ<br />     (strcat "\ntt3 运行时间：" (rtos (- seconds2 seconds) 2 2) " 秒")<br />   )<br /> )

修改后上述几个程序编译后运行，速度相差就不那么明显了:
tt1 运行时间：1.58 秒
tt2 运行时间：1.33 秒
tt3 运行时间：1.29 秒
tt4 运行时间：1.91 秒
tt5 运行时间：1.39 秒

lucas_3333

传说的中师兄? 也放几个源码出来,给我等不入流之辈学习呗.

ahwx0814

tt1 运行时间：0.67 秒

ahwx0814

tt2 运行时间：0.33 秒
tt3 运行时间：0.52 秒
tt4 运行时间：0.72 秒
tt5 运行时间：0.39 秒
我电脑速度比Gu_xl 快一倍多啊，你可以换电脑了

caiqs

速度相差不明显的话就把循环次数搞大些

条件过滤即把符合条件的提取出来，也即把不符合条件的去掉，按逻辑vl-remove-if为如果...则删除，比较符合人的思维，实验证明这个也是最快的

caiqs

Gu_xl 发表于 2014-4-8 22:42
tt1和tt4慢的原因并不在于是repeat 和while,而是在与其用了nth函数！将TT1和TT4修改一下，不用nth,速度极大 ...

批量处理的情况用mapcar，实际使用中是较多的，在我印象中速度是比较慢的
对比没有太多的考虑，没有加入这个函数也不是特意的

没想到 nth 居然有如此影响

wowan1314

好久没来了！
突然发现师兄发帖哦！
必须支持下！

caiqs

wowan1314 发表于 2014-4-9 11:47
好久没来了！
突然发现师兄发帖哦！
必须支持下！

随便写的

难得还有人记得我，这论坛一个月也上不了几次

应该有很多认识的或以前曾聊过的人

为什么显示的名字注册了就不能改了，导致我看不出各位的身份，应该很多是QQ好友吧

wowan1314

caiqs 发表于 2014-4-9 12:12
随便写的

难得还有人记得我，这论坛一个月也上不了几次

我已经不是 “随便的人”了！ 呵呵

现在基本不碰程序了，差不多快忘光了。

论坛很少来了。偶然无聊来看看，都没登陆！ 今天看你发帖才登陆上来 支持下。