有没有这样的一个分类统计函数？

sunnylhj

wowan1314 发表于 2014-7-24 13:34
这个应该简单啊。楼主应尝试自己写！

我写了个 好像可以！

菜鸟还没入门，很多函数都搞不懂！遇到这样的问题只能求教前辈们！

wowan1314

edata 发表于 2014-7-24 16:55
个人觉得点值应该用equal +fuzz

嗯！ 那就再加一句！

2. (defun t11 (lst / a b l)
   
3.     (while (setq a (car lst))
   
4.         (setq lst(mapcar '(lambda(x)(if(equal x a 1e-5)1 x))lst))
   
5.         (setq b(length lst)lst(vl-remove 1 lst))
   
6.         (setq l (cons (list a (- b (length lst))) l))
   
7.     )
   
8. )

(defun t11 (lst / a b l) <br />     (while (setq a (car lst))<br />         (setq lst(mapcar '(lambda(x)(if(equal x a 1e-5)1 x))lst))<br />         (setq b(length lst)lst(vl-remove 1 lst))<br />         (setq l (cons (list a (- b (length lst))) l))<br />     )<br /> )

edata

wowan1314 发表于 2014-7-24 17:26
嗯！ 那就再加一句！

再加一句

1. (if l(reverse l))

(if l(reverse l))