如何去掉重复的字符串，并且排序

qianzj

xyp1964 发表于 2015-2-26 20:33

厉害，与众不同               

llsheng_73

鱼与熊掌 发表于 2015-2-25 18:58

1. (defun cx-lst-delsame(lst fuzz / runlst)
   
2.   (while(setq runlst(cons(car lst)runlst)
   
3.               lst(vl-remove-if'(lambda(x)(equal x(car lst)fuzz))(cdr lst))))
   
4.   (reverse runlst)
   
5. )

(defun cx-lst-delsame(lst fuzz / runlst)<br />   (while(setq runlst(cons(car lst)runlst)<br />               lst(vl-remove-if'(lambda(x)(equal x(car lst)fuzz))(cdr lst))))<br />   (reverse runlst)<br /> )

鱼与熊掌

llsheng_73 发表于 2015-3-12 03:08

bucuo  不错.

softbird

请教各位大师如何得到("AL1" "AL1" "AL1" "AL2" "AL2"  "AL2" )
即反向操作留下重复的？

1291500406

softbird 发表于 2019-5-28 16:47
请教各位大师如何得到("AL1" "AL1" "AL1" "AL2" "AL2"  "AL2" )
即反向操作留下重复的？

倒立着写代码

自贡黄明儒

softbird 发表于 2019-5-28 16:47
请教各位大师如何得到("AL1" "AL1" "AL1" "AL2" "AL2"  "AL2" )
即反向操作留下重复的？

准备两个表，一个是重复的，一个是不重复的。用member判断一下，就可以了。

highflybird

提供一个简单的函数，不希望用member函数，对大数据的有可能提高效率

1. (defun RemDupAndSort (lst / l a)
   
2.   (foreach n (vl-sort lst '>)                ;这个地方的大于函数可以替换成你需要的函数
   
3.     (if        (= a n)                                ;这个地方的相等比较可以替换成你需要的函数
   
4.       l
   
5.       (setq a n l (cons n l))
   
6.     )
   
7.   )
   
8. )
   

(defun RemDupAndSort (lst / l a)<br />   (foreach n (vl-sort lst '>)                ;这个地方的大于函数可以替换成你需要的函数<br />     (if        (= a n)                                ;这个地方的相等比较可以替换成你需要的函数<br />       l<br />       (setq a n l (cons n l))<br />     )<br />   )<br /> )<br />

在要求效率的场合，要慎用member, 对上面的函数来说，如果用member。对上面的这个歌函数来说，时间可能是O(n^2),而用foreach 函数，不过是排序  的时间加O(n)时间，总的来说还是O(log(n)).
各位有兴趣的话，不妨自我测试一下。