表中去除重复元素

/db_自贡黄明儒_

1. ;;表中去除重复元素(重复过的取第一次出现)
   
2. ;;(_delsame '(1 1.0 2 2.0 1 1. 3) 0.001)=>(1 2 3)
   
3. ;;(_delsame '(1 1.0 2 2.0 1 1. 3) nil)=>(1 1.0 2 2.0 3)
   
4. (defun _delsame        (Lst Fuzz / A L)
   
5.   (if Fuzz
   
6.     (while (setq a   (car Lst)
   
7.                  L   (cons a L)
   
8.                  Lst (vl-remove-if '(lambda (x) (equal a x Fuzz)) Lst)
   
9.            )
   
10.     )
    
11.     (while (setq a   (car Lst)
    
12.                  L   (cons a L)
    
13.                  Lst (vl-remove a Lst)
    
14.            )
    
15.     )
    
16.   )
    
17.   (reverse L)
    
18. )

;;表中去除重复元素(重复过的取第一次出现)<br /> ;;(_delsame '(1 1.0 2 2.0 1 1. 3) 0.001)=>(1 2 3)<br /> ;;(_delsame '(1 1.0 2 2.0 1 1. 3) nil)=>(1 1.0 2 2.0 3)<br /> (defun _delsame        (Lst Fuzz / A L)<br />   (if Fuzz<br />     (while (setq a   (car Lst)<br />                  L   (cons a L)<br />                  Lst (vl-remove-if '(lambda (x) (equal a x Fuzz)) Lst)<br />            )<br />     )<br />     (while (setq a   (car Lst)<br />                  L   (cons a L)<br />                  Lst (vl-remove a Lst)<br />            )<br />     )<br />   )<br />   (reverse L)<br /> )

newer

给力，论坛有很多去除重复的代码，
老黄有空给整理出来，对比测试下哪个效率高啊

/db_自贡黄明儒_

newer 发表于 2021-1-22 16:51
给力，论坛有很多去除重复的代码，
老黄有空给整理出来，对比测试下哪个效率高啊

听73说这个效率高，我整理了一下。

newer

/db_自贡黄明儒_ 发表于 2021-1-22 16:55
听73说这个效率高，我整理了一下。

用

(xd::quickbench '("tt1" "tt2" "tt3" ....."ttn"))

测试下

hh_lj007

牛人啊佩服，学习收藏了

SHUNDocker

学习了，源码价值大！！！

dmxcs

这个可以有

a117034423

谢谢分享了 黄大师

qxlonmsn

犇  感谢楼主的分享   叕学到东西了