表剩余重复元素，并消重 XD::List:Dup

dyjwyqz5221

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

(defun XD::List:Dup(lst / foo index index1)
	(defun foo (x)
        	(cond
            		((or (if (not (vl-position x index)) (setq index (cons x index)))
				(vl-position x index1)
				);;;or
			)
            		((null (setq index1 (cons x index1))))
        	)
    	)
    	(vl-remove-if
       		'foo
        	lst
    	)
);;;defun

newer

有两个函数的测试结果吗，发上来看看

Lisphk

楼主，测试，有BUG，只能删除第一个，多个重复的，删除不净

wrsxed

(XD::List:Dup (list 1 2 3 5 1 2 5 3 2 1 2))

wrsxed

返回(1 2 5 3 2 1 2)有重复元素

dyjwyqz5221

明天测试一下

dyjwyqz5221

确实有bug，已修改。再做几个函数，测试一下效率

dyjwyqz5221

做了几个函数测试了一下
(defun XD::List:Dup(lst / foo index index1)
        (defun foo (x)
                (cond
                            ((or (if (not (vl-position x index)) (setq index (cons x index)))
                                (vl-position x index1)
                                );;;or
                        )
                            ((null (setq index1 (cons x index1))))
                )
            )
            (vl-remove-if
                       'foo
                lst
            )
);;;defun

(defun t1(lst / index index1)
        (mapcar
                '(lambda(x)
                        (cond
                                ((not (vl-position x index))
                                        (setq index (cons x index))
                                )
                                ((and (vl-position x index) (not (vl-position x index1)))
                                        (setq index1 (cons x index1))
                                )
                        );;;cond
                )
                lst
        );;;mapcar
        (reverse index)
);;;defun


(defun t2(lst / index index1)
        (mapcar
                '(lambda(x)
                        (cond
                                ((not (member x index))
                                        (setq index (cons x index))
                                )
                                ((and (member x index) (not (member x index1)))
                                        (setq index1 (cons x index1))
                                )
                        );;;cond
                )
                lst
        );;;mapcar
        (reverse index)
);;;defun

(defun t3(lst / index)
        (while (setq e (car lst))
                (setq lst (cdr lst))
                (if (and (not (vl-position e index)) (vl-position e lst))
                        (setq index (cons e index))
                );;;if
        );;;while
        (reverse index)
);;;defun

(defun t4(lst / index)
        (while (setq e (car lst))
                (setq lst (cdr lst))
                (if (and (not (member e index)) (member e lst))
                        (setq index (cons e index))
                );;;if
        );;;while
        (reverse index)
);;;defun

(defun c:tt(/ lst)
        (repeat 1000
                (setq lst (cons (xdrx_math_rand 0 100) lst))
        )
        (repeat 5
                  (xd::quickbench '((XD::List:Dup lst) (t1 lst) (t2 lst) (t3 lst) (t4 lst)))
        )
          (princ)
);;;defun


CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking .......... done for 1024 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T3 LST)                          1024      1328       1328     17.88 <fastest>
(XD::LIST:DUP LST)                1024      1625       1625     14.61
(T1 LST)                           512      1172       2344     10.13
(T4 LST)                            64      1172      18752      1.27
(T2 LST)                            64      1484      23744      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking .......... done for 1024 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T3 LST)                          1024      1984       1984     24.69 <fastest>
(XD::LIST:DUP LST)                 512      1094       2188     22.39
(T1 LST)                           512      1563       3126     15.67
(T4 LST)                            64      1578      25248      1.94
(T2 LST)                            32      1531      48992      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking .......... done for 512 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T3 LST)                           512      1125       1125     25.33 <fastest>
(XD::LIST:DUP LST)                 512      1172       1172     24.31
(T1 LST)                           512      1657       1657     17.20
(T4 LST)                            32      1000      16000      1.78
(T2 LST)                            32      1781      28496      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking .......... done for 512 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T3 LST)                           512      1188       1188     29.47 <fastest>
(XD::LIST:DUP LST)                 512      1312       1312     26.68
(T1 LST)                           512      1875       1875     18.67
(T4 LST)                            64      1968      15744      2.22
(T2 LST)                            16      1094      35008      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking .......... done for 512 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T3 LST)                           512      1203       1203     28.70 <fastest>
(XD::LIST:DUP LST)                 512      1296       1296     26.64
(T1 LST)                           512      1875       1875     18.41
(T4 LST)                            64      1984      15872      2.18
(T2 LST)                            16      1079      34528      1.00 <slowest>
-------------------------------------------------------------------------------

dyjwyqz5221

(defun c:tt(/ lst)
        (repeat 1000
                (setq lst (cons (xdrx_math_rand 0 10) lst))
        )
        (repeat 5
                  (xd::quickbench '((XD::List:Dup lst) (t1 lst) (t2 lst) (t3 lst) (t4 lst)))
        )
          (princ)
);;;defun


CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking .......... done for 2048 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T3 LST)                          2048      1812       1812      4.62 <fastest>
(XD::LIST:DUP LST)                1024      1016       2032      4.12
(T4 LST)                          1024      1360       2720      3.08
(T1 LST)                          1024      1469       2938      2.85
(T2 LST)                           256      1047       8376      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking .......... done for 1024 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T3 LST)                          1024      1281       1281      5.76 <fastest>
(XD::LIST:DUP LST)                1024      1500       1500      4.92
(T1 LST)                           512      1140       2280      3.24
(T4 LST)                           512      1469       2938      2.51
(T2 LST)                           256      1844       7376      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking .......... done for 1024 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T3 LST)                          1024      1031       1031      4.67 <fastest>
(XD::LIST:DUP LST)                1024      1094       1094      4.40
(T1 LST)                          1024      1547       1547      3.11
(T4 LST)                           512      1094       2188      2.20
(T2 LST)                           256      1203       4812      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking .......... done for 2048 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(XD::LIST:DUP LST)                2048      1578       1578      3.84 <fastest>
(T3 LST)                          2048      1797       1797      3.37
(T1 LST)                          1024      1172       2344      2.59
(T4 LST)                           512      1297       5188      1.17
(T2 LST)                           512      1515       6060      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking .......... done for 1024 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T3 LST)                          1024      1125       1125      5.33 <fastest>
(XD::LIST:DUP LST)                1024      1235       1235      4.86
(T1 LST)                          1024      1781       1781      3.37
(T4 LST)                           512      1281       2562      2.34
(T2 LST)                           256      1500       6000      1.00 <slowest>
-------------------------------------------------------------------------------

dyjwyqz5221

(defun c:tt(/ lst)
        (setq lst '(1 2 1))
        (repeat 5
                  (xd::quickbench '((XD::List:Dup lst) (t1 lst) (t2 lst) (t3 lst) (t4 lst)))
        )
          (princ)
);;;defun



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
-------------------------------------------------------------------------------
(T3 LST)                         16384      1531       1531      1.65 <fastest>
(T4 LST)                         16384      1578       1578      1.60
(XD::LIST:DUP LST)               16384      1610       1610      1.57
(T1 LST)                          8192      1218       2436      1.04
(T2 LST)                          8192      1266       2532      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking .......... done for 8192 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T3 LST)                          8192      1062       1062      1.77 <fastest>
(T4 LST)                          8192      1110       1110      1.69
(XD::LIST:DUP LST)                8192      1125       1125      1.67
(T2 LST)                          8192      1860       1860      1.01
(T1 LST)                          8192      1875       1875      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking .......... done for 8192 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T3 LST)                          8192      1078       1078      1.74 <fastest>
(XD::LIST:DUP LST)                8192      1141       1141      1.64
(T4 LST)                          8192      1203       1203      1.56
(T1 LST)                          8192      1844       1844      1.02
(T2 LST)                          8192      1875       1875      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking .......... done for 8192 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(XD::LIST:DUP LST)                8192      1157       1157      2.19 <fastest>
(T3 LST)                          8192      1407       1407      1.80
(T4 LST)                          8192      1422       1422      1.78
(T1 LST)                          8192      1906       1906      1.33
(T2 LST)                          4096      1265       2530      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking .......... done for 8192 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T3 LST)                          8192      1422       1422      1.78 <fastest>
(T4 LST)                          8192      1453       1453      1.74
(XD::LIST:DUP LST)                8192      1484       1484      1.71
(T1 LST)                          4096      1219       2438      1.04
(T2 LST)                          4096      1266       2532      1.00 <slowest>
-------------------------------------------------------------------------------

dyjwyqz5221

表无重复元素，测试
(defun c:tt(/ i lst)
        (setq i 0)
        (repeat 1000
                (setq lst (cons (setq i (1+ I)) lst))
        );;;repeat
        (setq lst (reverse lst))
        (repeat 5
                  (xd::quickbench '((XD::List:Dup lst) (t1 lst) (t2 lst) (t3 lst) (t4 lst)))
        )
          (princ)
)


CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking .......... done for 256 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T3 LST)                           256      1203       1203     17.66 <fastest>
(XD::LIST:DUP LST)                 256      1218       1218     17.44
(T1 LST)                           256      1313       1313     16.18
(T4 LST)                            32      1844      14752      1.44
(T2 LST)                            16      1328      21248      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking .......... done for 256 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(XD::LIST:DUP LST)                 256      1250       1250     25.01 <fastest>
(T3 LST)                           256      1312       1312     23.83
(T1 LST)                           256      1359       1359     23.01
(T4 LST)                            16      1953      31248      1.00
(T2 LST)                            16      1954      31264      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking .......... done for 256 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T3 LST)                           256      1219       1219     17.64 <fastest>
(XD::LIST:DUP LST)                 256      1234       1234     17.43
(T1 LST)                           256      1297       1297     16.58
(T2 LST)                            16      1328      21248      1.01
(T4 LST)                            16      1344      21504      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking .......... done for 256 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(XD::LIST:DUP LST)                 256      1188       1188     18.09 <fastest>
(T3 LST)                           256      1219       1219     17.63
(T1 LST)                           256      1297       1297     16.57
(T4 LST)                            16      1328      21248      1.01
(T2 LST)                            16      1343      21488      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking .......... done for 256 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(T3 LST)                           256      1250       1250     17.60 <fastest>
(XD::LIST:DUP LST)                 256      1266       1266     17.38
(T1 LST)                           256      1328       1328     16.57
(T4 LST)                            16      1328      21248      1.04
(T2 LST)                            16      1375      22000      1.00 <slowest>
-------------------------------------------------------------------------------

dyjwyqz5221

经过这几轮测试，得出了这样的结论：
1、xd::list:dup函数t3函数效率差不多，综合起来还是t3函数效率要高一些。
2、vl-position函数要比member函数效率高。

XDSoft

dyjwyqz5221 发表于 2020-5-14 09:08
经过这几轮测试，得出了这样的结论：
1、xd::list:dup函数t3函数效率差不多，综合起来还是t3函数效率要高 ...

1. (defun XD::List:RemoveDup (l / ll fuzz)
   
2.   (setq fuzz (car (xdrx_document_getprec)))
   
3.   (while l
   
4.     (setq ll (cons (car l) ll)
   
5.           l  (vl-remove-if '(lambda(x)(equal x (car l) fuzz)) l)
   
6.     )
   
7.   )
   
8.   (reverse ll)
   
9. )
   
10. 
    

(defun XD::List:RemoveDup (l / ll fuzz)<br />   (setq fuzz (car (xdrx_document_getprec)))<br />   (while l<br />     (setq ll (cons (car l) ll)<br />           l  (vl-remove-if '(lambda(x)(equal x (car l) fuzz)) l)<br />     )<br />   )<br />   (reverse ll)<br /> )<br /> <br />

XD::List:RemoveDup 有容差，更通用，你试试修改下你的函数，加入容差功能的，比比哪个效率高。

dyjwyqz5221

XDSoft 发表于 2020-5-14 11:13
XD::List:RemoveDup 有容差，更通用，你试试修改下你的函数，加入容差功能的，比比哪个效率高。

XD::List:RemoveDup函数是消重，XD::List:Dup是剩余表中重复元素并消重，是两码事。

dyjwyqz5221

XDSoft 发表于 2020-5-14 11:13
XD::List:RemoveDup 有容差，更通用，你试试修改下你的函数，加入容差功能的，比比哪个效率高。

你这个函数与下面的函数效率比较:
(defun XD::pnts:RemoveDup(lst fuzz / foo index)
    (defun foo (x)
        (cond
            ((xd::list:member-fuzz x index fuzz))
            ((null (setq index (cons x index))))
        )
    );;;defun
    (vl-remove-if
       'foo
        lst
    );;;vl
)


(defun xd::list:member-fuzz(e lst fuzz)
        (while (and lst (not (equal (car lst) e fuzz)))
                (setq lst (cdr lst))
        );;;while
        (car lst)
)


;;;你这个函数与上面这个函数都属于有误差的消重函数，可以适用于点表类，数字类
测试函数
(defun c:tt(/ pts)
        (setq pts
                (apply 'append
                        (mapcar
                                '(lambda(x)
                                        (xdrx_entity_getstretchpoint x)
                                );;;lambda
                                (xdrx_pickset->ents (ssget))
                        );;;mapcar
                )
        )
        (xdrx_document_setprec 10 0.01)
        (repeat 5
                  (xd::quickbench '((XD::List:RemoveDup pts) (XD::pnts:RemoveDup pts 10.)))
        )
         (princ)
)



测试结果：
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 2048 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(XD::PNTS:REMOVEDUP PTS 10.0)     2048      1516       1516      5.28 <fastest>
(XD::LIST:REMOVEDUP PTS)           256      1000       8000      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 2048 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(XD::PNTS:REMOVEDUP PTS 10.0)     2048      1531       1531      5.23 <fastest>
(XD::LIST:REMOVEDUP PTS)           256      1000       8000      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 2048 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(XD::PNTS:REMOVEDUP PTS 10.0)     2048      1515       1515      5.28 <fastest>
(XD::LIST:REMOVEDUP PTS)           256      1000       8000      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 2048 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(XD::PNTS:REMOVEDUP PTS 10.0)     2048      1515       1515      5.20 <fastest>
(XD::LIST:REMOVEDUP PTS)           512      1969       7876      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 2048 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(XD::PNTS:REMOVEDUP PTS 10.0)     2048      1500       1500      5.33 <fastest>
(XD::LIST:REMOVEDUP PTS)           256      1000       8000      1.00 <slowest>
-------------------------------------------------------------------------------