还是一个表分割的问题.已经在QQ群里解决

434939575

2. (defun  c:tt()
   
3. 
   
4. (setq lis'(1 2 3 4 5   11  20 21 22 23 24))
   
5. (tt lis) ;//   ((1 2 3 4 5) (11) (20 21 22 23 24))
   
6. 
   
7.   )
   
8. 
   
9. (defun tt (lst / a l1);感谢 q3_2006提供
   
10. (setq l1 nil
    
11.   l1 (list (list (car lst)))
    
12.   lst (cdr lst)
    
13. )
    
14. (while lst
    
15.   (setq a (car lst)
    
16.     lst (cdr lst)
    
17.   )
    
18.   (if (= 1 (- a (caar l1)))
    
19.     (setq l1 (cons (cons a (car l1)) (cdr l1)))
    
20.     (setq l1 (cons (list a) l1))
    
21.   )
    
22. )  
    
23. (reverse (mapcar 'reverse l1))
    
24. )
    
25. ;对表处理感觉有点晕晕的<img src="http://bbs.mjtd.com/static/image/smiley/qq/em18.gif" smilieid="100" alt="" border="0"><img src="http://bbs.mjtd.com/static/image/smiley/qq/em18.gif" smilieid="100" alt="" border="0">

(defun  c:tt()<br /> <br /> (setq lis'(1 2 3 4 5   11  20 21 22 23 24))<br /> (tt lis) ;//   ((1 2 3 4 5) (11) (20 21 22 23 24))<br /> <br />   )<br /> <br /> (defun tt (lst / a l1);感谢 q3_2006提供<br /> (setq l1 nil<br />   l1 (list (list (car lst)))<br />   lst (cdr lst)<br /> )<br /> (while lst<br />   (setq a (car lst)<br />     lst (cdr lst)<br />   )<br />   (if (= 1 (- a (caar l1)))<br />     (setq l1 (cons (cons a (car l1)) (cdr l1)))<br />     (setq l1 (cons (list a) l1))<br />   )<br /> )  <br /> (reverse (mapcar 'reverse l1))<br /> )<br /> ;对表处理感觉有点晕晕的<img src="http://bbs.mjtd.com/static/image/smiley/qq/em18.gif" smilieid="100" alt="" border="0"><img src="http://bbs.mjtd.com/static/image/smiley/qq/em18.gif" smilieid="100" alt="" border="0">