把此贴删除了

soly2006

别傻了，中国素来有“宁赠友邦，不予家奴”的传统。

preone

想法是好~~

LLXXZZ

通用函数库这东西,是程序的核心所在,没有利益或者是胸怀,一般不会直接拿出来...

革天明

;;http://bbs.mjtd.com/forum.php?mo ... id=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   
)