有容差的assoc函数

dyjwyqz5221

[Actionscript3] 纯文本查看 复制代码

(defun xd::list:assoc-fuzz(lst1 lst fuzz)
        (while (and lst (not (equal (caar lst) lst1 fuzz)))
                (setq lst (cdr lst))
        )
        (car lst)
)

dyjwyqz5221

测试：
(defun xd::list:assoc-fuzz(lst1 lst fuzz)
        (while (and lst (not (equal (caar lst) lst1 fuzz)))
                (setq lst (cdr lst))
        )
        (car lst)
)
(defun assoc2(lst1 lst fuzz)
        (car
                (vl-remove-if-not
                        '(lambda(x)
                                (equal (car x) lst1 fuzz)
                        )
                        lst
                )
        )
)

(defun assoc3 (e l fuzz)
  (xd::list:car-member-if '(lambda (x) (equal e (car x) fuzz)) l)
)

(defun xd::list:car-member-if (f l / ff r)
  (if (= (atom f) (setq r (car (member f l))))
    (progn (setq ff '(lambda (x)
                       (if (apply f (list x))
                         (setq r x)
                       )
                     )
           )
           (vl-some ff l)
    )
  )
  r
)
(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)
                )
        )
        (setq lst (reverse lst))
        (repeat 5
                  (xd::quickbench '((xd::list:assoc-fuzz lst1 lst 1e-3)(assoc2 lst1 lst 1e-3) (assoc3 lst1 lst 1e-3)))
        )
          (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      1625       1625     83.69 <fastest>
(ASSOC2 LST1 LST 0.001)            128      1625       1625     83.69
(ASSOC3 LST1 LST 0.001)              2      2125     136000      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      1609       1609     88.86 <fastest>
(ASSOC2 LST1 LST 0.001)            128      1641       1641     87.13
(ASSOC3 LST1 LST 0.001)              2      2234     142976      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      1625       1625     87.99 <fastest>
(ASSOC2 LST1 LST 0.001)            128      1625       1625     87.99
(ASSOC3 LST1 LST 0.001)              2      2234     142976      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
-------------------------------------------------------------------------------
(ASSOC2 LST1 LST 0.001)            128      1625       1625     88.62 <fastest>
(XD::LIST:ASSOC-FUZZ LST1...)      128      1640       1640     87.80
(ASSOC3 LST1 LST 0.001)              2      2250     144000      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      1641       1641     85.92 <fastest>
(ASSOC2 LST1 LST 0.001)            128      1656       1656     85.14
(ASSOC3 LST1 LST 0.001)              2      2203     140992      1.00 <slowest>
-------------------------------------------------------------------------------

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

CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ........ done for 32768 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(XD::LIST:ASSOC-FUZZ LST1...)    32768      1531       1531    370.87 <fastest>
(ASSOC3 LST1 LST 0.001)            256      1219     156032      3.64
(ASSOC2 LST1 LST 0.001)             64      1109     567808      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ........ done for 32768 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(XD::LIST:ASSOC-FUZZ LST1...)    32768      1484       1484    285.84 <fastest>
(ASSOC3 LST1 LST 0.001)            256      1125     144000      2.95
(ASSOC2 LST1 LST 0.001)            128      1657     424192      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ........ done for 32768 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(XD::LIST:ASSOC-FUZZ LST1...)    32768      1391       1391    301.83 <fastest>
(ASSOC3 LST1 LST 0.001)            256      1141     146048      2.87
(ASSOC2 LST1 LST 0.001)            128      1640     419840      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ........ done for 32768 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(XD::LIST:ASSOC-FUZZ LST1...)    32768      1437       1437    295.01 <fastest>
(ASSOC3 LST1 LST 0.001)            256      1172     150016      2.83
(ASSOC2 LST1 LST 0.001)            128      1656     423936      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ........ done for 16384 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(XD::LIST:ASSOC-FUZZ LST1...)    16384      1250       1250    184.01 <fastest>
(ASSOC3 LST1 LST 0.001)            256      1625     104000      2.21
(ASSOC2 LST1 LST 0.001)            128      1797     230016      1.00 <slowest>
-------------------------------------------------------------------------------

dyjwyqz5221

该函数与XD::List:Assoc函数的效率比较：
(defun XD::List:Assoc (key lst /  val x)
  (vl-some '(lambda (x)
              (if (equal key (car x) (car (xdrx_document_getprec)))
                (setq val x)
              )
            ) lst
  )
  val
)

测试函数
(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      1969       1969     67.02 <fastest>
(XD::LIST:ASSOC LST1 LST)            1      1031     131968      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      1937       1937     89.84 <fastest>
(XD::LIST:ASSOC LST1 LST)            2      2719     174016      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      1985       1985     99.76 <fastest>
(XD::LIST:ASSOC LST1 LST)            1      1547     198016      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 64 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(XD::LIST:ASSOC-FUZZ LST1...)       64      1000       1000     67.01 <fastest>
(XD::LIST:ASSOC LST1 LST)            1      1047      67008      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 64 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(XD::LIST:ASSOC-FUZZ LST1...)       64      1000       1000     65.98 <fastest>
(XD::LIST:ASSOC LST1 LST)            1      1031      65984      1.00 <slowest>
-------------------------------------------------------------------------------

xujinhua

强！！谢谢楼主