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

hrbustmqc

• ("AL2" "AL2" "AL3" "AL2" "AL1" "AL1" "AL1")
• 要求：去掉重复的字符串，并且按照AL1，Al2，AL3排序。
• 期望结果("AL1" "AL2" "AL3" )
  

自贡黄明儒

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)).
各位有兴趣的话，不妨自我测试一下。

鱼与熊掌

2. 
   
3. (setq lst '("AL2" "AL2" "AL3" "AL2" "AL1" "AL1" "AL1"))
   
4. (setq lst(cx-lst-delsame lst 0.1))
   
5. (vl-sort lst '< )
   

<br /> (setq lst '("AL2" "AL2" "AL3" "AL2" "AL1" "AL1" "AL1"))<br /> (setq lst(cx-lst-delsame lst 0.1))<br /> (vl-sort lst '< )<br />

("AL2" "AL2" "AL3" "AL2" "AL1" "AL1" "AL1")
("AL2" "AL3" "AL1")
("AL1" "AL2" "AL3")

鱼与熊掌

2. ;删除重复元素.
   
3. (defun cx-lst-delsame(lst fuzz / runlst)
   
4.         (while lst
   
5.                 (setq runlst (cons(car lst)runlst))
   
6.                 (setq lst(vl-remove-if '(lambda(x)(equal x (car lst)fuzz)) lst))
   
7.         )
   
8.         (reverse runlst)
   
9. )

;删除重复元素.<br /> (defun cx-lst-delsame(lst fuzz / runlst)<br />         (while lst<br />                 (setq runlst (cons(car lst)runlst))<br />                 (setq lst(vl-remove-if '(lambda(x)(equal x (car lst)fuzz)) lst))<br />         )<br />         (reverse runlst)<br /> )

hrbustmqc

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

您好请问，为什么我运行时显示。
no function definition: CX-LST-DELSAME
while参数个数不正确。fuzz的值是nil

yoyoho

感谢 鱼与熊掌 分享程序!

yshf

2. (vl-load-com)
   
3.     (setq zfcb '("AL2" "AL2" "AL3" "AL2" "AL1" "AL1" "AL1")
   
4.           fhz  nil
   
5.     )
   
6.     (while zfcb
   
7.        (setq zfc (car zfcb)
   
8.              zfcb (vl-remove zfc zfcb)
   
9.              fhz (cons zfc fhz)
   
10.        )
    
11.     )
    
12.     (setq fhz (vl-sort fhz '<))

(vl-load-com)<br />     (setq zfcb '("AL2" "AL2" "AL3" "AL2" "AL1" "AL1" "AL1")<br />           fhz  nil<br />     )<br />     (while zfcb<br />        (setq zfc (car zfcb)<br />              zfcb (vl-remove zfc zfcb)<br />              fhz (cons zfc fhz)<br />        )<br />     )<br />     (setq fhz (vl-sort fhz '<))

xyp1964

(list '("AL1" "AL2" "AL3"))

fl202

(setq b1 '("AL2" "AL2" "AL3" "AL2" "AL1" "AL1" "AL1") b2 '() i 0)
(repeat (length b1)
  (setq a (nth i b1))
  (if (not (member a b2))
  (setq b2 (cons a b2))
  )
  (setq i (1+ i))
  )
(setq b2 (vl-sort b2 '<))

springwillow

yshf 发表于 2015-2-25 21:25

个人觉得稍微有点不太严谨，最后一句排序应该用

2. (setq fhz (acad_strlsort fhz) )

(setq fhz (acad_strlsort fhz) )

更为恰当。

xyp1964

2. ;; (aaa '("AL2" "AL2" "AL3" "AL2" "AL1" "AL1" "AL1"))
   
3. (defun aaa (lst / lst1)
   
4.   (foreach a lst
   
5.     (if (not (member a lst1))
   
6.       (setq lst1 (cons a lst1))
   
7.     )
   
8.   )
   
9.   (vl-sort lst1 '<)
   
10. )
    

;; (aaa '("AL2" "AL2" "AL3" "AL2" "AL1" "AL1" "AL1"))<br /> (defun aaa (lst / lst1)<br />   (foreach a lst<br />     (if (not (member a lst1))<br />       (setq lst1 (cons a lst1))<br />     )<br />   )<br />   (vl-sort lst1 '<)<br /> )<br />