(XD::List:Group)表根据首次出现项按精度分组

st788796

1. (defun XD::List:Group (lst fuzz / l ll)
   
2.   (setq  ll  (list (list (car lst)))
   
3.            lst (cdr lst)
   
4.   )
   
5.   (while lst
   
6.     (setq l   (vl-remove-if-not
   
7.                 '(lambda (x) (equal x (caar ll) fuzz))
   
8.                 lst
   
9.               )
   
10.           ll  (cons (append (car ll) l) (cdr ll))
    
11.           lst (vl-remove-if '(lambda (x) (equal x (caar ll) fuzz)) lst)
    
12.           ll  (cons (list (car lst)) ll)
    
13.           lst (cdr lst)
    
14.     )
    
15.   )
    
16.   (if (null (caar ll)) (cdr ll) ll)
    
17. )
    

(defun XD::List:Group (lst fuzz / l ll)<br />   (setq  ll  (list (list (car lst)))<br />            lst (cdr lst)<br />   )<br />   (while lst<br />     (setq l   (vl-remove-if-not<br />                 '(lambda (x) (equal x (caar ll) fuzz))<br />                 lst<br />               )<br />           ll  (cons (append (car ll) l) (cdr ll))<br />           lst (vl-remove-if '(lambda (x) (equal x (caar ll) fuzz)) lst)<br />           ll  (cons (list (car lst)) ll)<br />           lst (cdr lst)<br />     )<br />   )<br />   (if (null (caar ll)) (cdr ll) ll)<br /> )<br />

_$ (xd::list:group '(1 2 3 4 1 2 4 5) 1)
((5) (4 4) (3) (2 2) (1 1))
_$ (xd::list:group '(1 2 3 4 1 2 4 5) 11)
((1 2 3 4 1 2 4 5))
_$ (xd::list:group '(1 2 3 4 1 2 4 5) 1.1)
((5) (3 4 4) (1 2 1 2))
_$ (xd::list:group '("1" "2" 3 4 "1" 2 4 5) 1.1)
((5) (3 4 2 4) ("2") ("1" "1"))
_$

守仁格竹GM

同样问题
测试(setq lst '(1 2 3 4 1 2 4 4))
(xd::list:group lst 0)
结果
((nil) (4 4 4) (3) (2 2) (1 1))
_$
建议吧最后的ll 增加个判断
  (if (null (caar ll))
    (cdr ll)
    ll
    )

st788796

守仁格竹GM 发表于 2013-11-9 17:01
同样问题
测试(setq lst '(1 2 3 4 1 2 4 4))
(xd::list:group lst 0)

多谢指正, 已修改

marting

构造后，数据的顺序变反序了，建议最后加上个reverse,分组后，顺序不变

原函数：
命令: (xd::list:group '("1" "2" 3 4 "1" 2 4 5) 1.1)
((5) (3 4 2 4) ("2") ("1" "1"))

应该是：
命令: (xd::list:group '("1" "2" 3 4 "1" 2 4 5) 1.1)
(("1" "1") ("2") (3 4 2 4) (5))