让VL-POSITION返回多个索引

aimisiyou

marting 发表于 2017-5-15 14:49

编辑是不是有误？
(defun vl-positions3 (x l / p)
  (if (setq p (vl-position x l))      ;;;此处应为vl-position而不是vl-position3.
    (cons p
          (mapcar
            '(lambda (y)
               (+ 1 p y)
             )
            (vl-positions3 x (cdr (member x l)))
          )
    )
  )
)

newer

aimisiyou 发表于 2017-5-16 19:38

谢谢指正，你也来一个啊。

aimisiyou

newer 发表于 2017-5-16 20:10

见30#。你测试下分开快些还是合在一起快？我更倾向于先快速得到表，然后表与表操作，不知是不是快些？

newer

aimisiyou 发表于 2017-5-16 14:20

加入vl-positions11测试结果

1. 
   
2. 命令: (repeat 5 (c:test))
   
3. Elapsed milliseconds / relative speed for 32768 iteration(s):
   
4. 
   
5.     (VL-POSITIONS7 1 LST)......1437 / 2.76 <fastest>
   
6.     (VL-POSITIONS9 1 LST)......1609 / 2.47
   
7.     (VL-POSITIONS6 1 LST)......1625 / 2.44
   
8.     (VL-POSITIONS10 1 LST).....1671 / 2.38
   
9.     (VL-POSITIONS8 1 LST)......1859 / 2.14
   
10.     (VL-POSITIONS1 1 LST)......1938 / 2.05
    
11.     (VL-POSITIONS2 1 LST)......1968 / 2.02
    
12.     (VL-POSITIONS4 1 LST)......1984 / 2
    
13.     (VL-POSITIONS5 1 LST)......2156 / 1.84
    
14.     (VL-POSITIONS11 1 LST).....3969 / 1 <slowest>
    
15. Elapsed milliseconds / relative speed for 32768 iteration(s):
    
16. 
    
17.     (VL-POSITIONS6 1 LST).......1985 / 8.45 <fastest>
    
18.     (VL-POSITIONS8 1 LST).......2172 / 7.72
    
19.     (VL-POSITIONS7 1 LST).......2250 / 7.45
    
20.     (VL-POSITIONS4 1 LST).......2406 / 6.97
    
21.     (VL-POSITIONS2 1 LST).......2860 / 5.86
    
22.     (VL-POSITIONS5 1 LST).......2938 / 5.71
    
23.     (VL-POSITIONS1 1 LST).......3047 / 5.5
    
24.     (VL-POSITIONS9 1 LST).......3703 / 4.53
    
25.     (VL-POSITIONS10 1 LST)......6687 / 2.51
    
26.     (VL-POSITIONS11 1 LST).....16765 / 1 <slowest>
    
27. Elapsed milliseconds / relative speed for 32768 iteration(s):
    
28. 
    
29.     (VL-POSITIONS6 1 LST)......1735 / 2.22 <fastest>
    
30.     (VL-POSITIONS8 1 LST)......1906 / 2.02
    
31.     (VL-POSITIONS9 1 LST)......2000 / 1.92
    
32.     (VL-POSITIONS7 1 LST)......2016 / 1.91
    
33.     (VL-POSITIONS10 1 LST).....2203 / 1.74
    
34.     (VL-POSITIONS4 1 LST)......2297 / 1.67
    
35.     (VL-POSITIONS5 1 LST)......2407 / 1.6
    
36.     (VL-POSITIONS2 1 LST)......2672 / 1.44
    
37.     (VL-POSITIONS1 1 LST)......2766 / 1.39
    
38.     (VL-POSITIONS11 1 LST).....3844 / 1 <slowest>
    
39. Elapsed milliseconds / relative speed for 32768 iteration(s):
    
40. 
    
41.     (VL-POSITIONS7 1 LST)......1375 / 2.64 <fastest>
    
42.     (VL-POSITIONS8 1 LST)......1406 / 2.58
    
43.     (VL-POSITIONS9 1 LST)......1531 / 2.37
    
44.     (VL-POSITIONS6 1 LST)......1594 / 2.27
    
45.     (VL-POSITIONS4 1 LST)......2000 / 1.81
    
46.     (VL-POSITIONS10 1 LST).....2016 / 1.8
    
47.     (VL-POSITIONS5 1 LST)......2500 / 1.45
    
48.     (VL-POSITIONS2 1 LST)......2531 / 1.43
    
49.     (VL-POSITIONS1 1 LST)......2859 / 1.27
    
50.     (VL-POSITIONS11 1 LST).....3625 / 1 <slowest>
    
51. Elapsed milliseconds / relative speed for 32768 iteration(s):
    
52. 
    
53.     (VL-POSITIONS7 1 LST)......1343 / 2.62 <fastest>
    
54.     (VL-POSITIONS8 1 LST)......1469 / 2.39
    
55.     (VL-POSITIONS6 1 LST)......1547 / 2.27
    
56.     (VL-POSITIONS9 1 LST)......1687 / 2.08
    
57.     (VL-POSITIONS4 1 LST)......1984 / 1.77
    
58.     (VL-POSITIONS1 1 LST)......2047 / 1.72
    
59.     (VL-POSITIONS10 1 LST).....2219 / 1.58
    
60.     (VL-POSITIONS2 1 LST)......2250 / 1.56
    
61.     (VL-POSITIONS5 1 LST)......2281 / 1.54
    
62.     (VL-POSITIONS11 1 LST).....3516 / 1 <slowest>
    
63. 
    

复制代码

11的表现不够好。

目前，wowan1314的 vl-positions7 表现最好

aimisiyou

newer 发表于 2017-5-16 20:43

呵呵，思维很单纯，名次很落后。