[编程申请]：求最简便的排序方法

litss

想对一些主要是数字的文本内容进行排序。例如，

字符串：“2*1*6*3*12*16*18*19*15”
如何才能排序成：“ 19*18*16*15*12*6*3*2*1”

假如数字中有重复时，能否做到将重复的数字放在前方，如，
字符串：“2*1*6*3*12*2*3*16*18*19*15”
应排成：“3*2*19*18*16*15*12*6*3*2*1”

自己试着编了好久，始终搞不定。都怪自己没学好数学：（。请大家帮忙了。

eachy

第一个可以理解，这个
字符串：“2*1*6*3*12*2*3*16*18*19*15”
应排成：“3*2*19*18*16*15*12*6*3*2*1”
就不理解了

litss

呵呵，我的表达能力不好。
大概意思是第一个字符串里有两个“2”和“3”。我希望处理以后能这些重复字符只保留一个进行排序，多余的字符就提到最前面来放着，等待我将来自己人工处理（这些抽出来的重复字符不需要排序）。剩下那些无重复的字符就由大到小进行排序。

再比如：“1*2*3*3*5*5*5”，排成：“5*5*3*5*3*2*1”。最前面的“5*5*3”就是重复的字符，无序的放在字符串最前面就可以了（“5*3*5”，“3*5*5”都可以）。后边的“5*3*2*1”才是真正的排序。

我自己也不知道怎么才能做到：（

snoopychen

(defun list-sort-aa (lista / listb listc listd)
  (setq listc nil)
  (foreach x lista
    (setq listb lista)
    (if (> (- (length lista) (length (vl-remove x listb))) 1)
      (setq listc (cons x listc))
    )
  )
  (setq listc (vl-sort listc '>))
  (setq listd (vl-sort lista '>))
  (setq listc (append listc listd))
  listc
)


(defun c:test ()
  (setq a (list 2 1 6 3 12 2 3 16 18 19 15))
  (setq a (list-sort-aa a))
  (setq b (list 2 1 6 3 12 16 18 19 15))
  (setq b (list-sort-aa b))
(princ "\n               a = ") (princ a);Erase_DV
(princ "\n               b = ") (princ b);Erase_DV
(getstring "\nPress Enter to continue...");Erase_DV
)

上面的test是测试命令，list-sort-aa是子函数
您测试看看怎么样
大致思路，先找出重复元素，根据一个表中去掉某个元素之后（可能是多个）的长度与源表长度的对比，如果大于1则为重复元素。形成表。再对源表sort，两个表叠加

狂刀

2. 
   
3. (defun slst (lst / lst1 lst2)
   
4.   (mapcar '(lambda(x)(if (member x lst2)(setq lst1 (cons x lst1))(setq lst2(cons x lst2))))lst)
   
5.   (append lst1 (vl-sort lst2 '> ))
   
6. )

<br /> (defun slst (lst / lst1 lst2)<br />   (mapcar '(lambda(x)(if (member x lst2)(setq lst1 (cons x lst1))(setq lst2(cons x lst2))))lst)<br />   (append lst1 (vl-sort lst2 '> ))<br /> )

(slst '(3 7 8 2 6 2 2 12 9 5 8 7)) -> (7 8 2 2 12 9 8 7 6 5 3 2)

wxl1981807

好东西，谢了

eachy

把参数改成字符串

2. 
   
3. (defun slst (str / lst1 lst2)
   
4.   (setq lst (read (vl-string-translate "*" " " (strcat "(" str ")"))))
   
5.   (mapcar '(lambda (x)
   
6.              (if (member x lst2)
   
7.                (setq lst1 (cons x lst1))
   
8.                (setq lst2 (cons x lst2))
   
9.              )
   
10.            )
    
11.           lst
    
12.   )
    
13.   (substr
    
14.     (vl-string-translate
    
15.       " "
    
16.       "*"
    
17.       (vl-princ-to-string (append lst1 (vl-sort lst2 '>)))
    
18.     )
    
19.     2
    
20.     (1- (strlen str))
    
21.   )
    
22. )

<br /> (defun slst (str / lst1 lst2)<br />   (setq lst (read (vl-string-translate "*" " " (strcat "(" str ")"))))<br />   (mapcar '(lambda (x)<br />              (if (member x lst2)<br />                (setq lst1 (cons x lst1))<br />                (setq lst2 (cons x lst2))<br />              )<br />            )<br />           lst<br />   )<br />   (substr<br />     (vl-string-translate<br />       " "<br />       "*"<br />       (vl-princ-to-string (append lst1 (vl-sort lst2 '>)))<br />     )<br />     2<br />     (1- (strlen str))<br />   )<br /> )

litss

^_^谢谢各位。试过了，代码都很好用。虽然我还是看不太懂。