[LISP函数]：如何统计表中相同元素的个数？

kohi

如何统计表中相同元素的个数？

aeo

2. 
   
3. (while lst
   
4.   (setq a(car lst))
   
5.   (setq len (length lst))
   
6.   (setq lst(vl-remove-if  '(lambda(x)(= a x)) lst))
   
7.   ;;第一个是(- len(length lst))个
   
8.   (setq return (cons (list a (- len(length lst)))return))
   
9. )
   
10. return
    
11. 
    
12. 
    

<br /> (while lst<br />   (setq a(car lst))<br />   (setq len (length lst))<br />   (setq lst(vl-remove-if  '(lambda(x)(= a x)) lst))<br />   ;;第一个是(- len(length lst))个<br />   (setq return (cons (list a (- len(length lst)))return))<br /> )<br /> return<br /> <br /> <br />

kohi

自己也编了一个：
[php]
(defun sumlist (ll / ss ll1)
  (setq ll1 (acet-list-remove-duplicates ll nil))
  (foreach i ll1
    (setq n 0 m 0)
    (while (< n (length ll))
      (if (= i (nth n ll))(setq m (1+ m)))
      (setq n (1+ n))
    )
    (setq ss (append ss (list (list i m))))
  )
  ss
)

[/php]

fools

原表中重复项比较多的时候,aeo的函数效率非常高.
如果重复项少,可排序后再合并,或者试试下面这个
[php]
(DEFUN count1 (lst / tmplst tmp)
  (setq tmplst nil)
  (FOREACH item        lst
    (IF        (AND tmplst (setq tmp (assoc item tmplst)))
      (SETQ tmplst (SUBST (LIST item (1+ (CADR tmp))) tmp tmplst))
      (SETQ tmplst (cons (LIST item 1) tmplst))
    )
  )
  tmplst
)
[/php]