怎样求出出现次数最多的字符？

sfjlx

怎样求出出现次数最多的字符？
比如，我建立一个字符串选择集，如何求出字符串选择集中出现频率最高的字符串？
谢谢！

Gu_xl

2. (defun c:tt(/ ss e a b l)
   
3.   (if (setq ss (ssget '((0 . "text"))))
   
4.     (progn
   
5.       (repeat (setq n (sslength ss))
   
6.         (setq e (entget(ssname ss (setq n (1- n)))))
   
7.         (if (setq a (assoc (cdr (setq b (assoc 1 e))) l))
   
8.           (setq l (subst (cons (car a) (1+ (cdr a))) a l))
   
9.           (setq l (cons (cons (cdr b) 1) l))
   
10.           )
    
11.         )
    
12.       (setq l (vl-sort l '(lambda (a b) (> (cdr a) (cdr b)))))
    
13.       (princ(VL-PRIN1-TO-STRING l))
    
14.       )
    
15.     )
    
16.   (princ)
    
17.   )

(defun c:tt(/ ss e a b l)<br />   (if (setq ss (ssget '((0 . "text"))))<br />     (progn<br />       (repeat (setq n (sslength ss))<br />         (setq e (entget(ssname ss (setq n (1- n)))))<br />         (if (setq a (assoc (cdr (setq b (assoc 1 e))) l))<br />           (setq l (subst (cons (car a) (1+ (cdr a))) a l))<br />           (setq l (cons (cons (cdr b) 1) l))<br />           )<br />         )<br />       (setq l (vl-sort l '(lambda (a b) (> (cdr a) (cdr b)))))<br />       (princ(VL-PRIN1-TO-STRING l))<br />       )<br />     )<br />   (princ)<br />   )

sfjlx

感谢。没想到这么快就回了！研究研究！谢谢！

USER2128

2. (setq lst '("1" "2" "3" "2" "2" "2" "3" "4"))
   
3. (setq len (mapcar '(lambda(x) (length (vl-remove x lst))) lst))
   
4. (setq l-m (apply 'min len))
   
5. (nth (- (length lst) (length (member l-m len))) lst)

(setq lst '("1" "2" "3" "2" "2" "2" "3" "4"))<br /> (setq len (mapcar '(lambda(x) (length (vl-remove x lst))) lst))<br /> (setq l-m (apply 'min len))<br /> (nth (- (length lst) (length (member l-m len))) lst)