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

sunnylhj

假设表 lst 有很多相同的座标点，怎样才可以将表中相同的座标点分类统计出来？
(setq lst (list '(0 0 1) '(0 1 0) '(0 1 1) '(10 1 1) '(0 1 0) '(10 1 1) )

longcashman

(equal '(0 0 1)'(0 0 1))

sunnylhj

longcashman 发表于 2014-7-23 09:42
(equal '(0 0 1)'(0 0 1))

我的意思是将相同的统计出来，像：'(0 1 0)=2个，'(10 1 1)=2个

xyp1964

(setq lst '((0 0 1) (0 1 0) (0 1 1) (10 1 1) (0 1 0) (10 1 1)))
(xyp-List-CountSub (xyp-Sort-PtnByXYZ lst))
→
‘(((0 0 1) 1) ((0 1 0) 2) ((0 1 1) 1) ((10 1 1) 2))

longcashman

2. (defun delsame (l1 / l2)
   
3.   ;;表中去除重复元素(重复过的取第一次出现)by llsheng_73
   
4.   (while (setq l2 (cons (car l1) l2)
   
5.                l1 (vl-remove (car l1) (cdr l1))
   
6.          )
   
7.   )
   
8.   (reverse l2)
   
9. )
   
10. (defun count (alst / i rlst)
    
11.   (setq blst alst)
    
12.   (foreach a alst
    
13.     (setq i 0)
    
14.     (foreach b blst
    
15.       (if (equal a b)
    
16.         (setq i (1+ i))
    
17.       )
    
18.     )
    
19.     (setq rlst (append (list (cons a (list i))) rlst))
    
20.   )
    
21.   (delsame rlst)
    
22. )
    
23. ;(setq alst '((0 0 1) (0 1 0) (0 1 1) (10 1 1) (0 1 0) (10 1 1)))
    
24. ;(count alst)
    
25. ;-->(((10 1 1) 2) ((0 1 0) 2) ((0 1 1) 1) ((0 0 1) 1))
    
26. 
    

(defun delsame (l1 / l2)<br />   ;;表中去除重复元素(重复过的取第一次出现)by llsheng_73<br />   (while (setq l2 (cons (car l1) l2)<br />                l1 (vl-remove (car l1) (cdr l1))<br />          )<br />   )<br />   (reverse l2)<br /> )<br /> (defun count (alst / i rlst)<br />   (setq blst alst)<br />   (foreach a alst<br />     (setq i 0)<br />     (foreach b blst<br />       (if (equal a b)<br />         (setq i (1+ i))<br />       )<br />     )<br />     (setq rlst (append (list (cons a (list i))) rlst))<br />   )<br />   (delsame rlst)<br /> )<br /> ;(setq alst '((0 0 1) (0 1 0) (0 1 1) (10 1 1) (0 1 0) (10 1 1)))<br /> ;(count alst)<br /> ;-->(((10 1 1) 2) ((0 1 0) 2) ((0 1 1) 1) ((0 0 1) 1))<br /> <br />

如果数据大，我觉得院长的应该比较快

wowan1314

这个应该简单啊。楼主应尝试自己写！

我写了个 好像可以！

2. (defun t11 (lst)
   
3.     (while lst
   
4.         (setq a(car lst)b(length lst)lst(vl-remove a lst))
   
5.         (setq l (cons (list a (- b (length lst))) l))
   
6.     )
   
7. )

(defun t11 (lst) <br />     (while lst<br />         (setq a(car lst)b(length lst)lst(vl-remove a lst))<br />         (setq l (cons (list a (- b (length lst))) l))<br />     )<br /> )

longcashman

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

我写了个 好像可以！

2. (setq l (cons (list a (- b (length lst))) l))

(setq l (cons (list a (- b (length lst))) l))

求解释！

longcashman

我明白了
消重之后少掉的就是重复的
果然思路最重要啊

edata

个人觉得点值应该用equal +fuzz

longcashman

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

严谨