今天还请教一个表处理问题

434939575

今天请教一个表问题，我的括号不对，还少了一个数，如果少数比较麻烦不管了，我最后加进去，先谢谢了!

2. 
   
3. (defun c:rr()
   
4.   (setq ll nil)
   
5.   (setq xx nil)
   
6.   (setq VV nil)
   
7.   (setq  cc '(10 11.1 12.4 30.2 31.22 32.20 40 40.2 41)
   
8.   )
   
9.   (while cc
   
10.     (setq a (car cc))
    
11.     (setq cc (cdr cc))
    
12.     (if  (equal a (car cc) 1.6)
    
13.       (progn
    
14.   (setq ll (cons a ll))
    
15.         )
    
16.             (progn
    
17.   (if (> (- (car cc) a) 2)
    
18.     (progn
    
19.    (setq ll(cons (cons a ll) mm))
    
20.       
    
21.       )
    
22.     nil
    
23.   )
    
24.       )
    
25.       
    
26.     )
    
27.   )
    
28. 
    
29. )
    
30. ;; 我的结果是  (40.2 40 (32.2 31.22 30.2 (12.1 11.1 10.1)))括号不对，还少了个数， 要不得
    
31. ;;希望结果  ((10.1 11.1 12.1) (  30.2 31.22  32.20 )  (40 40.2  41))
    
32. 
    

<br /> (defun c:rr()<br />   (setq ll nil)<br />   (setq xx nil)<br />   (setq VV nil)<br />   (setq  cc '(10 11.1 12.4 30.2 31.22 32.20 40 40.2 41)<br />   )<br />   (while cc<br />     (setq a (car cc))<br />     (setq cc (cdr cc))<br />     (if  (equal a (car cc) 1.6)<br />       (progn<br />   (setq ll (cons a ll))<br />         )<br />             (progn<br />   (if (> (- (car cc) a) 2)<br />     (progn<br />    (setq ll(cons (cons a ll) mm))<br />       <br />       )<br />     nil<br />   )<br />       )<br />       <br />     )<br />   )<br /> <br /> )<br /> ;; 我的结果是  (40.2 40 (32.2 31.22 30.2 (12.1 11.1 10.1)))括号不对，还少了个数， 要不得<br /> ;;希望结果  ((10.1 11.1 12.1) (  30.2 31.22  32.20 )  (40 40.2  41))<br /> <br />

st788796

2. 
   
3. (defun ff (lst / ll)
   
4.   (setq lst (vl-sort lst '<))
   
5.   (while lst
   
6.     (if        ll
   
7.       (cond
   
8.         ((equal (caar ll) (car lst) 1.6)
   
9.          (setq ll (cons (cons (car lst) (car ll)) (cdr ll)))
   
10.         )
    
11.         ((> (- (car lst) (caar ll)) 2)
    
12.          (setq ll (cons (list (car lst)) ll))
    
13.         )
    
14.         (t)
    
15.       )
    
16.       (setq ll (cons (list (car lst)) ll))
    
17.     )
    
18.     (setq lst (cdr lst))
    
19.   )
    
20.   (reverse (mapcar 'reverse ll))
    
21. )

<br /> (defun ff (lst / ll)<br />   (setq lst (vl-sort lst '<))<br />   (while lst<br />     (if        ll<br />       (cond<br />         ((equal (caar ll) (car lst) 1.6)<br />          (setq ll (cons (cons (car lst) (car ll)) (cdr ll)))<br />         )<br />         ((> (- (car lst) (caar ll)) 2)<br />          (setq ll (cons (list (car lst)) ll))<br />         )<br />         (t)<br />       )<br />       (setq ll (cons (list (car lst)) ll))<br />     )<br />     (setq lst (cdr lst))<br />   )<br />   (reverse (mapcar 'reverse ll))<br /> )

_$ (ff cc)
((10 11.1 12.4) (30.2 31.22 32.2) (40 40.2 41))
_$

434939575

st788796 发表于 2016-6-13 10:31
_$ (ff cc)
((10 11.1 12.4) (30.2 31.22 32.2) (40 40.2 41))
_$

再次感谢大师光临指导！