[讨论]->征求最佳答案：删除表中第 n 个元素的最快算法

Ea

2. (defun getutime        ()
   
3.   (* 86400 (getvar "tdusrtimer"))
   
4. )
   
5. (defun numb (n / m l)
   
6.   (setq m 0)
   
7.   (repeat n
   
8.     (setq l (cons m l)
   
9.           m (1+ m)
   
10.     )
    
11.   )
    
12.   l
    
13. )
    
14. (defun cut (n lst / l)
    
15.   (repeat (1- n)
    
16.     (setq l (cons(car lst) l ))
    
17.   )
    
18.   (append (reverse l) (cdr lst))
    
19. )
    
20. (defun c:tt (/ t1 l)
    
21.   (setq t1 (getutime))
    
22.   (setq l (numb 15000))
    
23.   (princ "\nTimes = ")
    
24.   (princ (- (getutime) t1))
    
25.   (setq t1 (getutime))
    
26.   (cut 9999 l)
    
27.   (princ "\nTimes = ")
    
28.   (princ (- (getutime) t1))
    
29.   (princ)
    
30. )

(defun getutime        ()<br />   (* 86400 (getvar "tdusrtimer"))<br /> )<br /> (defun numb (n / m l)<br />   (setq m 0)<br />   (repeat n<br />     (setq l (cons m l)<br />           m (1+ m)<br />     )<br />   )<br />   l<br /> )<br /> (defun cut (n lst / l)<br />   (repeat (1- n)<br />     (setq l (cons(car lst) l ))<br />   )<br />   (append (reverse l) (cdr lst))<br /> )<br /> (defun c:tt (/ t1 l)<br />   (setq t1 (getutime))<br />   (setq l (numb 15000))<br />   (princ "\nTimes = ")<br />   (princ (- (getutime) t1))<br />   (setq t1 (getutime))<br />   (cut 9999 l)<br />   (princ "\nTimes = ")<br />   (princ (- (getutime) t1))<br />   (princ)<br /> )

运行速度和机器配置、是否打开 vlisp 编辑器，CAD运行情况等等都有关系

小菜123

牛人都冒出来，最后应当有个结论，表明哪些lisp函数组成的算法速度占优

yjr111

红花还需绿叶衬，重在参与哈

Gu_xl

对我的方法3代码再进行优化一下，又快了不少！目前测试是最快的！

1. ;;;方法四
   
2. (defun gxl-removeNth3  (index lst /  rtn len)
   
3.   (if (< -1 index (setq len (length lst)))
   
4.     (if (<= index (/ len 2)) ;_ index位于前半截
   
5.       (progn
   
6. (repeat index
   
7.    (setq rtn (cons (car lst) rtn)
   
8.   lst (cdr lst)
   
9.   )
   
10.    )
    
11. (append (reverse rtn) (cdr lst))
    
12. )
    
13.       (progn ;_ index位于后半截
    
14. (setq index (- len index 1)
    
15.        lst   (reverse lst)
    
16.        )
    
17. (repeat index
    
18.    (setq rtn (cons (car lst) rtn)
    
19.   lst (cdr lst)
    
20.   )
    
21.    )
    
22. (reverse (append (reverse rtn) (cdr lst)))
    
23. )
    
24.       )
    
25.         lst ;_ index 越界
    
26.     )
    
27.   )
    

;;;方法四<br /> (defun gxl-removeNth3  (index lst /  rtn len)<br />   (if (< -1 index (setq len (length lst))) <br />     (if (<= index (/ len 2)) ;_ index位于前半截<br />       (progn<br /> (repeat index<br />    (setq rtn (cons (car lst) rtn)<br />   lst (cdr lst)<br />   )<br />    )<br /> (append (reverse rtn) (cdr lst))<br /> )<br />       (progn ;_ index位于后半截<br /> (setq index (- len index 1)<br />        lst   (reverse lst)<br />        )<br /> (repeat index<br />    (setq rtn (cons (car lst) rtn)<br />   lst (cdr lst)<br />   )<br />    )<br /> (reverse (append (reverse rtn) (cdr lst)))<br /> )<br />       )<br />         lst ;_ index 越界<br />     )<br />   )<br />

全部测试代码：

测试结果：
命令: tt
Gu_xl 方法一:
  用时  0.53125  秒
Gu_xl 方法二:
  用时  0.441406  秒
Gu_xl 方法三:
  用时  0.09375  秒
Gu_xl 方法四repeat:
  用时  0.078125  秒
duotu007 方法:
  用时  0.265625  秒
xshrimp 方法:
  用时  0.171875  秒
fsxm 方法:
  用时  0.09375  秒
yjr111 test3方法:
  用时  0.296875  秒
xianaihua  递归方法:
  用时  0.21875  秒
xianaihua  迭代方法:
  用时  0.234375  秒

提高运算速度的方法小结：
1、尽量减少程序运算次数
2、尽量直接使用lisp基本函数，如：car、cdr、cons等，近量少用append、length等函数
3、使用递归等方法，速度相对较慢！比直接使用基本函数计算逊色不少！

fsxm

xianaihua 发的那个递归方法很nb,
如果再分下首尾,完美！

cnks

Gu_xl 发表于 2011-11-11 14:35
对我的方法3代码再进行优化一下，又快了不少！目前测试是最快的！

全部测试代码：

多用car和cdr是正确的，避免使用cons
这是因为编译的原因，car和cdr之类的都是内部函数，而cons是arx定义的函数，这当然比内部函数运行效率低

cnks

不好意思，g版，你的没错，查了查cons也是内部函数

xianaihua

2. ;;;递归法+
   
3. (defun RemoveNth3 (n l)
   
4.   (defun
   
5.       RemoveNth
   
6.          (index lst)
   
7.     (if  (and lst (< 0 index))
   
8.       (cons (car lst) (RemoveNth (1- index) (cdr lst)))
   
9.       (cdr lst)
   
10.     ) ;_ 结束if
    
11.   ) ;_ 结束defun
    
12.   (if (> n
    
13.    (/ (setq len (length l)) 2)
    
14.       ) ;_ 结束>
    
15.     (reverse (RemoveNth (- len n 1) (reverse l)))
    
16.     (RemoveNth n l)
    
17.   ) ;_ 结束defun
    
18. ) ;_ 结束defun

;;;递归法+<br /> (defun RemoveNth3 (n l)<br />   (defun<br />       RemoveNth<br />          (index lst)<br />     (if  (and lst (< 0 index))<br />       (cons (car lst) (RemoveNth (1- index) (cdr lst)))<br />       (cdr lst)<br />     ) ;_ 结束if<br />   ) ;_ 结束defun<br />   (if (> n<br />    (/ (setq len (length l)) 2)<br />       ) ;_ 结束><br />     (reverse (RemoveNth (- len n 1) (reverse l)))<br />     (RemoveNth n l)<br />   ) ;_ 结束defun<br /> ) ;_ 结束defun

递归改进版，用Gl的测速方法：
Gu_xl 方法一:
  用时  1.64063  秒
Gu_xl 方法二:
  用时  2.03125  秒
Gu_xl 方法三:
  用时  0.277344  秒
Gu_xl 方法四repeat:
  用时  0.300781  秒
duotu007 方法:
  用时  1.28125  秒
xshrimp 方法:
  用时  0.34375  秒
fsxm 方法:
  用时  0.261719  秒
yjr111 test3方法:
  用时  1.10938  秒
xianaihua  递归方法:
  用时  0.191406  秒

xianaihua

Benchmark显然是有问题的，单个测和几个程序在一起测，差别很大

Gu_xl

测速的方法对各种算法的速度是有影响的！比如表的长度不同、删除项的位置不同，各种算法的速度都有影响，测试的结果谁快谁慢也不尽相同！你们可修改24楼测试代码的参数测试下！编译以后再运行结果比较准确！