sunnylhj 发表于 2014-7-24 17:21:37

wowan1314 发表于 2014-7-24 13:34 static/image/common/back.gif
这个应该简单啊。楼主应尝试自己写！

我写了个 好像可以！

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

wowan1314 发表于 2014-7-24 17:26:54

edata 发表于 2014-7-24 16:55 static/image/common/back.gif
个人觉得点值应该用equal +fuzz

嗯！ 那就再加一句！(defun t11 (lst / a b l)
    (while (setq a (car lst))
      (setq lst(mapcar '(lambda(x)(if(equal x a 1e-5)1 x))lst))
      (setq b(length lst)lst(vl-remove 1 lst))
      (setq l (cons (list a (- b (length lst))) l))
    )
)

edata 发表于 2014-7-24 17:37:26

wowan1314 发表于 2014-7-24 17:26 static/image/common/back.gif
嗯！ 那就再加一句！

再加一句
(if l(reverse l))
页: 1 [2]
查看完整版本: 有没有这样的一个分类统计函数？