自定义函数，用于返回表中元素重复出现的次数

革天明

;;http://bbs.mjtd.com/forum.php?mod=viewthread&tid=95639&extra=
;;定义一个函数，对表进行处理，返回表中元素重复的数目
;;革天明 2012年7月18日  明经通道
;;(n-n '(2 3 4 6 5 3 2 5 1 3 2 4 6 1 0))
;;((0 . 1) (1 . 2) (5 . 2) (6 . 2) (4 . 2) (3 . 3) (2 . 3))
;;(n-n '(1 2 1 2 (1 1) (1 2) (1 1) (1 2)))
;;(((1 2) . 2) ((1 1) . 2) (2 . 2) (1 . 2))
;;(n-n '("133" "afds" "afds" "abc" "g" "h" "ab" "abc" "123" ))
;;(("123" . 1) ("ab" . 1) ("h" . 1) ("g" . 1) ("abc" . 2) ("afds" . 2) ("133" . 1))
;;(n-n '(1 2 3 3 3 5 6 q q 明镜 不是 明经 也不是 明镜 44 44 8 8 6))
;;((8 . 2) (44 . 2) (也不是 . 1) (明经 . 1) (不是 . 1) (明镜 . 2) (Q . 2) (6 . 2) (5 . 1) (3 . 3) (2 . 1) (1 . 1))
;;       请注意，最后一个例子中q变成了Q，不知道原因，可能是那个表中元素类型太杂了吧
(defun N-N (lst / lst1 lst2)
  (vl-load-com)
  ;;删除表中重复元素
  ;;Gu_xl口中的顾版  http://bbs.mjtd.com/forum.php?mod=viewthread&tid=92645
  ;;http://bbs.mjtd.com/forum.php?mo ... 16&page=1#pid537663
  (defun delsame (lst)
    (if lst
      (cons (car lst) (delsame (vl-remove (car lst) lst)))
    )
  )
  ;;返回表中元素的重复次数
  (defun repeatnum (x lst / n)
    (setq n (length lst))
    (- n (length (vl-remove x lst)))
  )
  (setq lst1'())
  (foreach n (delsame lst)
    (setq lst2(cons n (repeatnum n lst)))
    (setq lst1(cons lst2 lst1))
  )
  lst1   
)

soly2006

收了，支持源码！

chlh_jd

;; 查找出现次数最多表项】
;; 返回表中出现次数和元素
(defun vl-maxtimes (lst / a len ti new)
  (while lst
        (setq a(car lst)len(length lst)
              ti (- len (length (setq lst (vl-remove a lst))))
              new (cons (cons ti a) new)))
  (if new(car(vl-sort new (function (lambda (e1 e2) (> (car e1) (car e2)))))))
)