关于lisp内部数据类型vector的小测试

highflybird

起源于baitang36的这个帖子 ：
给autolisp增加一种数据类型vector
我把vector和list两种数据类型的读取元素的速度进行了比较。
测试代码：

1. (defun c:ttt()
   
2.   (setq i 0)
   
3.   (setq l nil)
   
4.   (setq n 100000)
   
5.   (repeat n
   
6.     (setq l (cons i l))
   
7.     (setq i (1+ i))
   
8.   )
   
9. 
   
10.   (setq v (apply 'vector l))
    
11. 
    
12.   ;;最后一个元素
    
13.   (uti:bench 10000
    
14.     (list
    
15.       (list 'vector-elt v (1- n))
    
16.       (list 'nth (1- n) l)
    
17.     )
    
18.   )
    
19. 
    
20.   ;;第一个元素
    
21.   (uti:bench 10000
    
22.     (list
    
23.       (list 'vector-elt v 0)
    
24.       (list 'nth 0 l)
    
25.     )
    
26.   )
    
27. 
    
28.   ;;中间元素
    
29.   (uti:bench 10000
    
30.     (list
    
31.       (list 'vector-elt v (/ n 2))
    
32.       (list 'nth (/ n 2) l)
    
33.     )
    
34.   )
    
35. 
    
36.   (defun forvector (v / i)
    
37.     (setq i 0)
    
38.     (repeat (vector-length v)
    
39.       (vector-elt v i)
    
40.       (setq i (1+ i))
    
41.     )
    
42.   )
    
43. 
    
44.   (defun forList (lst / i)
    
45.     (setq i 0)
    
46.     (repeat (length lst)
    
47.       (nth i lst)
    
48.       (setq i (1+ i))
    
49.     )
    
50.   )
    
51.   
    
52.   ;;平均用时
    
53.   (uti:bench 10
    
54.     (list
    
55.       (list 'forvector v)
    
56.       (list 'forlist l)
    
57.     )
    
58.   )
    
59.    
    
60.   (princ)
    
61. )

(defun c:ttt()<br />   (setq i 0)<br />   (setq l nil)<br />   (setq n 100000)<br />   (repeat n<br />     (setq l (cons i l))<br />     (setq i (1+ i))<br />   )<br /> <br />   (setq v (apply 'vector l))<br /> <br />   ;;最后一个元素<br />   (uti:bench 10000<br />     (list<br />       (list 'vector-elt v (1- n))<br />       (list 'nth (1- n) l)<br />     )<br />   )<br /> <br />   ;;第一个元素<br />   (uti:bench 10000<br />     (list<br />       (list 'vector-elt v 0)<br />       (list 'nth 0 l)<br />     )<br />   )<br /> <br />   ;;中间元素<br />   (uti:bench 10000<br />     (list<br />       (list 'vector-elt v (/ n 2))<br />       (list 'nth (/ n 2) l)<br />     )<br />   )<br /> <br />   (defun forvector (v / i)<br />     (setq i 0)<br />     (repeat (vector-length v)<br />       (vector-elt v i)<br />       (setq i (1+ i))<br />     )<br />   )<br /> <br />   (defun forList (lst / i)<br />     (setq i 0)<br />     (repeat (length lst)<br />       (nth i lst)<br />       (setq i (1+ i))<br />     )<br />   )<br />   <br />   ;;平均用时<br />   (uti:bench 10<br />     (list<br />       (list 'forvector v)<br />       (list 'forlist l)<br />     )<br />   )<br />     <br />   (princ)<br /> )

测试函数：

1. (defun UTI:Bench (Times Expressions / s)
   
2.   (defun Benchmark (Func times / TIME0 TIME1 Speed Value fName)
   
3.     (setq fName (car Func))
   
4.     (setq TIME0 (getvar "millisecs"))
   
5.     (repeat times
   
6.       (setq Value (apply fName (cdr func)))
   
7.     )
   
8.     (setq TIME1 (getvar "millisecs"))
   
9.     (setq TIME1 (- TIME1 TIME0 0.0))
   
10.     (setq Speed (/ TIME1 times))
    
11.     (list fName times TIME1 Speed Value)
    
12.   )
    
13.   (BenchCommon Times Expressions)
    
14. )

(defun UTI:Bench (Times Expressions / s)<br />   (defun Benchmark (Func times / TIME0 TIME1 Speed Value fName)<br />     (setq fName (car Func))<br />     (setq TIME0 (getvar "millisecs"))<br />     (repeat times<br />       (setq Value (apply fName (cdr func)))<br />     )<br />     (setq TIME1 (getvar "millisecs"))<br />     (setq TIME1 (- TIME1 TIME0 0.0))<br />     (setq Speed (/ TIME1 times))<br />     (list fName times TIME1 Speed Value)<br />   )<br />   (BenchCommon Times Expressions)<br /> )

在我的笔记本上测试的结果是：

Statement                Times     Elapse(ms)     Average(ms/time)
------------------------------------------------------------------
VECTOR-ELT               10000     468.0          0.0468
NTH                      10000     3063.0         0.3063
Statement                Times     Elapse(ms)     Average(ms/time)
------------------------------------------------------------------
VECTOR-ELT               10000     782.0          0.0782
NTH                      10000     828.0          0.0828
Statement                Times     Elapse(ms)     Average(ms/time)
------------------------------------------------------------------
VECTOR-ELT               10000     829.0          0.0829
NTH                      10000     2062.0         0.2062
Statement                Times     Elapse(ms)     Average(ms/time)
------------------------------------------------------------------
FORVECTOR                10        4547.0         454.7
FORLIST                  10        126953.0       12695.3

读取单个元素的时候，vector优势不是很明显，但平均值优势比较大。

另外vector有一个优点，就是很容易改变某个元素的值或者替换和交换元素，这个是很方便的，对list类型来说，实在不好办。
所以此处我没做比较。

欢迎大家测试。

自贡黄明儒

我看过一篇文章，很长很长，只记得说字典也是很神奇的
;;利用字典去重复
(defun C:w1 (/ *DIC*)
  (or *dic*
      (setq *dic* (vlax-get-or-create-object "scripting.dictionary"))
  )
;;;; Methods supported:
;;;;   Add (2)
;;;;   Exists (1)
;;;;   Items ()
;;;;   Keys ()
;;;;   Remove (1)
;;;;   RemoveAll ()

  (vlax-invoke *dic* 'add "a" "a");=>nil
  (vlax-invoke *dic* 'add "b" "1")
  (vlax-invoke *dic* 'Exists "b");存在=-1，不存在为0
  
  (vlax-invoke *dic* 'Keys);=>("a" "b")
  (vlax-invoke *dic* 'Items);=>("a" "1")
  
  (vlax-invoke *dic* 'Remove "a");=>nil
  (vlax-invoke *dic* 'Keys);=>("b")
  (vlax-invoke *dic* 'RemoveAll);=>nil
  (vlax-invoke *dic* 'Keys);nil
)

;;字典去重复
;;(RE '(1 2 3 3 2 1));=>(1 2 3)
(defun RE (lis / A NEW)
  (or *dic*
      (setq *dic* (vlax-get-or-create-object "scripting.dictionary"))
  )
  (while (setq a (car lis))
    (setq lis (cdr lis))
    (if        (= (vlax-invoke *dic* 'Exists a) 0)
      (vlax-invoke *dic* 'add a "")
    )
  )
  (setq New (vlax-invoke *dic* 'Keys))
  (vlax-invoke *dic* 'RemoveAll)
  New
)

guosheyang

感谢两位大佬的分享！

baitang36

有一个保留函数 nth<-可以很方便的替换表中的某个元素。
用法是：(syz-nth<- 序号  值  表 )
序号和nth的用法一样，从0开始算
看这里

小菜123

除了点赞，我啥也不会:D

yyzhan12

给高手点赞 + 佩服，给力