（XD::List:Assoc）支持容差的Assoc

newer

1. ;|
   
2. 支持容差的ASSOC
   
3. 参数： key --- 关联表KEY
   
4.        lst --- 关联表
   
5. 返回值： 关联表项 or nil
   
6. 说明，对于点、数值型关键字，容差由函数 (xdrx_document_getprec)读取(xdrx_document_setprec ...)设置。
   
7. |;
   
8. (defun XD::List:Assoc (key lst /  val x)
   
9.   (vl-some '(lambda (x)
   
10.               (if (equal key (car x) (car (xdrx_document_getprec)))
    
11.                 (setq val x)
    
12.               )
    
13.             ) lst
    
14.   )
    
15.   val
    
16. )

;|<br /> 支持容差的ASSOC<br /> 参数： key --- 关联表KEY<br />        lst --- 关联表<br /> 返回值： 关联表项 or nil<br /> 说明，对于点、数值型关键字，容差由函数 (xdrx_document_getprec)读取(xdrx_document_setprec ...)设置。<br /> |;<br /> (defun XD::List:Assoc (key lst /  val x)<br />   (vl-some '(lambda (x)<br />               (if (equal key (car x) (car (xdrx_document_getprec)))<br />                 (setq val x)<br />               )<br />             ) lst<br />   )<br />   val<br /> )

st788796

和(car (vl-member-if ……有什么优势？

newer

st788796 发表于 2014-12-8 23:55
和(car (vl-member-if ……有什么优势？

member返回的东西要多点，比如查询项在表很前面。

st788796

newer 发表于 2014-12-9 00:11
member返回的东西要多点，比如查询项在表很前面。

vl-some是有点像
{for (i = 0, i < lst.length,i++)
   {if (lst[ i ] == pam)
       return true;
    }
}
return false;

newer

st788796 发表于 2014-12-9 00:24
vl-some是有点像
{for (i = 0, i < lst.length,i++)
   {if (lst[ i ] == pam)

是的，找到后马上退出循环。

Free-Lancer

newer 发表于 2014-12-9 00:48
是的，找到后马上退出循环。

退出循环方法

1. (defun xsome (lst func / tf)
   
2.   (vl-catch-all-apply
   
3.     '(lambda ()
   
4.        (foreach        x lst
   
5.          (if (eval (cons func (list x)))
   
6.            (progn
   
7.              (setq tf x)
   
8.              (exit)
   
9.            )
   
10.          )
    
11.        )
    
12.      )
    
13.     nil
    
14.   )
    
15.   tf
    
16. )
    

(defun xsome (lst func / tf)<br />   (vl-catch-all-apply<br />     '(lambda ()<br />        (foreach        x lst<br />          (if (eval (cons func (list x)))<br />            (progn<br />              (setq tf x)<br />              (exit)<br />            )<br />          )<br />        )<br />      )<br />     nil<br />   )<br />   tf<br /> )<br />

_$ (xsome '(1 2 3 4) '(lambda (x) (= x 10)))
nil
_$ (xsome '(1 2 3 4) '(lambda (x) (= x 2)))
2
_$ (xsome '(1 2 3 4) '(lambda (x) (equal x 2 1)))
2
_$ (xsome '(1 2 3 4) '(lambda (x) (equal x 2 1.1)))
1
_$

dyjwyqz5221

与下面函数的效率测试:
(defun xd::list:assoc-fuzz(lst1 lst fuzz)
        (while (and lst (not (equal (caar lst) lst1 fuzz)))
                (setq lst (cdr lst))
        );;;while
        (car lst)
);;;defun

(defun c:tt(/ i lst1 lst)
        (setq lst1 19999.0001)
        (setq i 1)
        (repeat 30000
                (setq lst (cons (list i i) lst)
                        i (1+ i)
                )
        )
        (xdrx_document_setprec 1e-3 0.01)
        (setq lst (reverse lst))
        (repeat 5
                  (xd::quickbench '((xd::list:assoc-fuzz lst1 lst 1e-3)(xd::list:assoc lst1 lst)))
        )
          (princ)
)

CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 128 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(XD::LIST:ASSOC-FUZZ LST1...)      128      1485       1485     49.50 <fastest>
(XD::LIST:ASSOC LST1 LST)            4      2297      73504      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 128 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(XD::LIST:ASSOC-FUZZ LST1...)      128      1437       1437     48.72 <fastest>
(XD::LIST:ASSOC LST1 LST)            4      2188      70016      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 128 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(XD::LIST:ASSOC-FUZZ LST1...)      128      1438       1438     48.31 <fastest>
(XD::LIST:ASSOC LST1 LST)            4      2171      69472      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 128 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(XD::LIST:ASSOC-FUZZ LST1...)      128      1468       1468     47.35 <fastest>
(XD::LIST:ASSOC LST1 LST)            4      2172      69504      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 128 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(XD::LIST:ASSOC-FUZZ LST1...)      128      1469       1469     47.66 <fastest>
(XD::LIST:ASSOC LST1 LST)            4      2188      70016      1.00 <slowest>
-------------------------------------------------------------------------------