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

elitefish

再来个 Mermber 方法的测试结果
和上面不同的是 LST 为 字符串表 '("1" "2" "3"...) 其余条件相同  排除误差的话  可以看出  两种计算时间基本相同   所以 Member 方法 与数据类型无关

1. 
   
2. 测试对象 lst 元素 共1000个
   
3. 测试函数(EF:LIST-INDEXDEL-MEMBER 500 LST) 1000次,共耗时:0.569969秒
   
4. 
   
5. 测试对象 lst 元素 共2000个
   
6. 测试函数(EF:LIST-INDEXDEL-MEMBER 1000 LST) 1000次,共耗时:1.58697秒
   
7. 
   
8. 测试对象 lst 元素 共3000个
   
9. 测试函数(EF:LIST-INDEXDEL-MEMBER 1500 LST) 1000次,共耗时:3.03239秒
   
10. 
    
11. 测试对象 lst 元素 共4000个
    
12. 测试函数(EF:LIST-INDEXDEL-MEMBER 2000 LST) 1000次,共耗时:4.96209秒
    
13. 
    
14. 测试对象 lst 元素 共5000个
    
15. 测试函数(EF:LIST-INDEXDEL-MEMBER 2500 LST) 1000次,共耗时:7.4096秒
    
16. 
    
17. 测试对象 lst 元素 共6000个
    
18. 测试函数(EF:LIST-INDEXDEL-MEMBER 3000 LST) 1000次,共耗时:10.1834秒
    
19. 
    
20. 测试对象 lst 元素 共7000个
    
21. 测试函数(EF:LIST-INDEXDEL-MEMBER 3500 LST) 1000次,共耗时:13.5005秒
    
22. 
    
23. 测试对象 lst 元素 共8000个
    
24. 测试函数(EF:LIST-INDEXDEL-MEMBER 4000 LST) 1000次,共耗时:17.561秒
    
25. 
    
26. 测试对象 lst 元素 共9000个
    
27. 测试函数(EF:LIST-INDEXDEL-MEMBER 4500 LST) 1000次,共耗时:21.5455秒
    
28. 
    
29. 测试对象 lst 元素 共10000个
    
30. 测试函数(EF:LIST-INDEXDEL-MEMBER 5000 LST) 1000次,共耗时:26.1292秒
    
31. 
    
32. 测试对象 lst 元素 共11000个
    
33. 测试函数(EF:LIST-INDEXDEL-MEMBER 5500 LST) 1000次,共耗时:31.2813秒
    
34. 
    
35. 测试对象 lst 元素 共12000个
    
36. 测试函数(EF:LIST-INDEXDEL-MEMBER 6000 LST) 1000次,共耗时:36.7112秒
    
37. 
    
38. 测试对象 lst 元素 共13000个
    
39. 测试函数(EF:LIST-INDEXDEL-MEMBER 6500 LST) 1000次,共耗时:42.884秒
    
40. 
    
41. 测试对象 lst 元素 共14000个
    
42. 测试函数(EF:LIST-INDEXDEL-MEMBER 7000 LST) 1000次,共耗时:49.746秒
    
43. 
    
44. 测试对象 lst 元素 共15000个
    
45. 测试函数(EF:LIST-INDEXDEL-MEMBER 7500 LST) 1000次,共耗时:56.444秒
    
46. 
    
47. 测试对象 lst 元素 共16000个
    
48. 测试函数(EF:LIST-INDEXDEL-MEMBER 8000 LST) 1000次,共耗时:63.9989秒
    
49. 
    
50. 测试对象 lst 元素 共17000个
    
51. 测试函数(EF:LIST-INDEXDEL-MEMBER 8500 LST) 1000次,共耗时:73.4016秒
    
52. 
    
53. 测试对象 lst 元素 共18000个
    
54. 测试函数(EF:LIST-INDEXDEL-MEMBER 9000 LST) 1000次,共耗时:79.9767秒
    
55. 
    
56. 测试对象 lst 元素 共19000个
    
57. 测试函数(EF:LIST-INDEXDEL-MEMBER 9500 LST) 1000次,共耗时:91.6278秒
    
58. 
    
59. 测试对象 lst 元素 共20000个
    
60. 测试函数(EF:LIST-INDEXDEL-MEMBER 10000 LST) 1000次,共耗时:107.608秒

复制代码

Gu_xl

重新对三种表类型（纯数字表、字符串表、点表）做了测试！测试结果如下：



对于数字表和字符串表来说，各种方法相对本身来说区别不大，如果是点表的话，member方法影响会大一点，Gu_xl方法4和xianaihua  递归改进方法对表类型敏感度不大！几种表速度相差不太大！
发现一个很有意思的现象，Caoyin和xshrimp 的Member方法再编译以后的运算速度居然比没编译的运算速度慢！特别是纯数字表，前后居然差了3秒！（5.34766  秒 对 8.48047  秒）！

cabinsummer

试过嵌套表吗？

shalei021647

问题太高深了

xiaxiang

纯粹凑个热闹，不懂如何提速。如果能知道是正向提取还是逆向提取，会不会好些。
递归法，从1开始，不能为0，为负数则逆向提取

2. 
   
3. (defun ntht ( n l)
   
4. (cond ((= n 0) nil)
   
5.           ((> n 0)
   
6.        (repeat (1- n) (setq l(cdr l)))
   
7.        (car l)
   
8.           ) ;返回第n个元素
   
9.           (T(ntht(1+ (+ (length l) n)) l)) ;返回倒数第n个元素
   
10. )
    
11. )

<br /> (defun ntht ( n l)<br /> (cond ((= n 0) nil)<br />           ((> n 0)<br />        (repeat (1- n) (setq l(cdr l)))<br />        (car l)<br />           ) ;返回第n个元素<br />           (T(ntht(1+ (+ (length l) n)) l)) ;返回倒数第n个元素<br /> )<br /> )

byghbcx

1. (defun tt (n lst)
   
2.   (setq lst_r (reverse lst) lt lst)
   
3.   (repeat n (setq lt (cdr lt)))
   
4.   (repeat (- (length lst_r) (- n 1)) (setq lst_r (cdr lst_r)))
   
5.   (setq lst_r (reverse lst_r))
   
6.   (append lst_r lt)
   
7.   )
   
8. (defun tt( n lst / t1 t2 m temp)
   
9.   (setq m 0 temp '())
   
10.   (mapcar '(lambda(x) (setq m (1+ m)) (if (= n m) t (setq temp (cons x temp )))) lst)
    
11.   (reverse temp)
    
12.   )
    
13. (defun tt (n lst)
    
14.   (setq lst_r (reverse lst) lt lst nn (nth (1- n) lst))
    
15.   (while (/= (length lt) (- (length lst) n))
    
16.     (setq lt (cdr (member nn lt))))
    
17.   (while (/= (length lst_r) (1- n))
    
18.     (setq lst_r (cdr (member nn lst_r))))
    
19.   (append (reverse lst_r) lt)
    
20.   )

(defun tt (n lst)<br />   (setq lst_r (reverse lst) lt lst)<br />   (repeat n (setq lt (cdr lt)))<br />   (repeat (- (length lst_r) (- n 1)) (setq lst_r (cdr lst_r)))<br />   (setq lst_r (reverse lst_r))<br />   (append lst_r lt)<br />   )<br /> (defun tt( n lst / t1 t2 m temp)<br />   (setq m 0 temp '())<br />   (mapcar '(lambda(x) (setq m (1+ m)) (if (= n m) t (setq temp (cons x temp )))) lst)<br />   (reverse temp)<br />   )<br /> (defun tt (n lst)<br />   (setq lst_r (reverse lst) lt lst nn (nth (1- n) lst))<br />   (while (/= (length lt) (- (length lst) n))<br />     (setq lt (cdr (member nn lt))))<br />   (while (/= (length lst_r) (1- n))<br />     (setq lst_r (cdr (member nn lst_r))))<br />   (append (reverse lst_r) lt)<br />   )

我用了几种方法，用MEMBER还是较快

NetBee

我也来凑热闹，我的函数库中的：

2. (defun NBTF_LST_Delnth1        (Num# OldList@)
   
3.   (setq Num# (1+ Num#))
   
4.   (vl-remove-if
   
5.     '(lambda (x) (zerop (setq Num# (1- Num#))))
   
6.     OldList@
   
7.   )
   
8. )

(defun NBTF_LST_Delnth1        (Num# OldList@)<br />   (setq Num# (1+ Num#))<br />   (vl-remove-if<br />     '(lambda (x) (zerop (setq Num# (1- Num#))))<br />     OldList@<br />   )<br /> )

从没有考虑过这个问题，哪位测试一下看看，怕是最慢的。

vormittag

cnks 发表于 2011-11-11 15:21
不好意思，g版，你的没错，查了查cons也是内部函数

请教cnks一下，哪些函数属于内部函数？autocad的帮助里好像没有找到信息，您能给点资料么？

cnks

vormittag 发表于 2011-11-16 19:20
请教cnks一下，哪些函数属于内部函数？autocad的帮助里好像没有找到信息，您能给点资料么？

byghbcx

byghbcx 发表于 2011-11-14 00:29
我用了几种方法，用MEMBER还是较快

我测的是第三个最快