LISP缓存类

vectra

缓存类其实是Scripting.Dictionary的LISP封装，可应用于需要加速LISP数据类型的存取的场合。

建立缓存对象
_$ (setq c (p-cache-create))
#<VLA-OBJECT IDictionary 0000000008c8f390>

增加索引为15000的LIST对象
_$ (p-cache-set c "15000" '((10  1200. 1200. 0.)(11  1220. 1220. 0.)(2  "A...")))
nil

根据索引获取对象
_$ (p-cache-get c "15000")
((10 1200.0 1200.0 0.0) (11 1220.0 1220.0 0.0) (2 "A..."))

建立测试数据
(setq n 0)
(repeat        10000
  (p-cache-set c (setq n (1+ n)) (list n n n))
)

获取条目数量
_$ (p-cache-getcount c)
10001

速度评测
_$ (p-benchmark '(p-cache-get c 8888) 10000)
"Benchmark loops = 10000, in 688 ms, 14535 invoke / s"

_$ (p-cache-get c 1)
(1 1 1)

_$ (p-cache-get c 88888)
nil

_$ (p-cache-get c 8888)
(8888 8888 8888)

yxp

要讲对数据的存取，还是字典法最快，比数组还快，lisp 表最慢。
nth 函数就是从第一个元素开始一个个的问，问到第 n 个后返回；字典法则是直接用关键字保存了第 n 个元素的内存地址，需要的时候直接呼叫。删除重复表元素测试结果：
字典方法耗时: 0.03 秒
递归方法耗时: 1.769 秒
测试代码如下：

1. ;;LISP递归法
   
2. (defun delsame (L)(if L (cons (car L)(delsame (vl-remove (car L) L)))))
   
3. 
   
4. ;;字典法
   
5. (defun d-DelSame(L / A L1)
   
6.         (defun d_LtKI(d k)(mapcar 'vlax-variant-value
   
7.                 (vlax-safearray->list (vlax-variant-value (vlax-invoke-method d k))))
   
8.         )
   
9.     (setq d (vlax-create-object "Scripting.Dictionary"))
   
10.     (while (setq A (car L))
    
11.         (vlax-put-property d 'Item A "")
    
12.         (setq L (cdr L))
    
13.     )
    
14.     (setq L1 (d_LtKI d "Keys"))
    
15.     (vlax-release-object d)
    
16. L1
    
17. )
    
18. ;;测试删除重复表元素，测试表元素个数 6000
    
19. (defun test( / AA)
    
20.     (setq i 0)
    
21.     (while (< i 6000) (setq AA (cons (setq i (1+ i)) AA)))
    
22.     (setq time0 (getvar "date")) ;;计时1
    
23.     (d-DelSame AA) ;;字典法
    
24.     (setq time1 (getvar "date")) ;;计时2
    
25.     (delsame AA)  ;;递归法
    
26.     (setq time2 (getvar "date")) ;;计时3
    
27.     (princ (strcat "\n字典方法耗时: " (rtos (* 86400 (- time1 time0)) 2 4) " 秒"))
    
28.     (princ (strcat "\n递归方法耗时: " (rtos (* 86400 (- time2 time1)) 2 4) " 秒"))
    
29. (princ)
    
30. )

;;LISP递归法<br /> (defun delsame (L)(if L (cons (car L)(delsame (vl-remove (car L) L)))))<br /> <br /> ;;字典法<br /> (defun d-DelSame(L / A L1)<br />         (defun d_LtKI(d k)(mapcar 'vlax-variant-value <br />                 (vlax-safearray->list (vlax-variant-value (vlax-invoke-method d k))))<br />         )<br />     (setq d (vlax-create-object "Scripting.Dictionary"))<br />     (while (setq A (car L))<br />         (vlax-put-property d 'Item A "")<br />         (setq L (cdr L))<br />     )<br />     (setq L1 (d_LtKI d "Keys"))<br />     (vlax-release-object d)<br /> L1<br /> )<br /> ;;测试删除重复表元素，测试表元素个数 6000<br /> (defun test( / AA)<br />     (setq i 0)<br />     (while (< i 6000) (setq AA (cons (setq i (1+ i)) AA)))<br />     (setq time0 (getvar "date")) ;;计时1<br />     (d-DelSame AA) ;;字典法<br />     (setq time1 (getvar "date")) ;;计时2<br />     (delsame AA)  ;;递归法<br />     (setq time2 (getvar "date")) ;;计时3<br />     (princ (strcat "\n字典方法耗时: " (rtos (* 86400 (- time1 time0)) 2 4) " 秒"))<br />     (princ (strcat "\n递归方法耗时: " (rtos (* 86400 (- time2 time1)) 2 4) " 秒"))<br /> (princ)<br /> )

xinxirong

yxp牛，楼主发个函数说明，马上就把代码写好

xiaotao

我完全看不懂！

自贡黄明儒

xiaotao 发表于 2018-4-19 23:34
我完全看不懂！

http://bbs.xdcad.net/forum.php?m ... hlight=%D7%D6%B5%E4

pengfei2010

还是 那句话，楼主，你调用外部对象是需要花费 不少时间的，你的 应该 以 使用次数为测试是根本，否则没有实际意义的 ，可以这么说，单从一次处理大量数据来说来说，command 效率应该是最快的