提取表中重复的内容及重复次数

ynhh

如何提取表中重复的内容及重复次数

(setq b '(1 2  2 3 4 5 5 5 5 6 7 8 9 0 ))

得到 2 重复 2 次，5 重复 4 次

论坛中 highflybir 大量骨 删除表中重复的元素

但就是找不到提取重复元素的啊

请教各位大师能不能出手指点一下啊

gdslqs

临时写的，未经严格测试
;by明经gdslqs 2014-3-4
(defun test (lst / len1 len2 a lst i ret)
   (while lst
     (setq a (car lst)
         len1 (length lst)
         lst (vl-remove a lst)
         len2 (length lst)
         i (- len1 len2)
     )
     (if (> i 1)
         (setq ret (cons (list a i) ret))
     )
   )
(reverse ret)
)

(test '(1 2  2 3 4 5 5 5 5 6 7 8 9 0 ))=((2 2) (5 4))

xyp1964

(setq b '(1 2 2 3 4 5 5 5 5 6 7 8 9 0))
(setq c (xyp-List-CountSub b))
→
'((1 1) (2 2) (3 1) (4 1) (5 4) (6 1) (7 1) (8 1) (9 1) (0 1))

ynhh

gdslqs 发表于 2014-3-4 17:41
临时写的，未经严格测试
;by明经gdslqs 2014-3-4
(defun test (lst / len1 len2 a lst i ret)

你写的很好，感谢你的热心帮助

xujinhua

学到东西了...谢谢

434939575

都是高手。感谢！

我来看MM的