请师傅帮忙处理表问题

434939575

2. 先谢谢了！
   
3. 
   
4. (defun c:tt ()
   
5.   (setq v nil)
   
6.     (setq  cc '(10.1 11.1 12.1   30.2 31.22  32.20   40 40.2  41)
   
7. )
   
8.   (while cc
   
9.     (setq a (car cc))
   
10.     (setq cc (cdr cc))
    
11.     (if  (equal a (car cc) 1.6)
    
12.       (progn
    
13.       (setq v (append (list a) v  ))
    
14.          )
    
15.       (progn
    
16.       (if (> (- (car cc) a ) 3)
    
17. (setq v (list(append (list a)v)))
    
18. 
    
19.   )
    
20.     )
    
21.   )
    
22.     )
    
23. 
    
24. )
    
25. ;; 我的结果是  (40.2 40 (32.2 31.22 30.2 (12.1 11.1 10.1)))括号不对，还少了个数， 要不得
    
26. ;;希望结果  ((10.1 11.1 12.1) (  30.2 31.22  32.20 )  (40 40.2  41))

先谢谢了！<br /> <br /> (defun c:tt ()<br />   (setq v nil)<br />     (setq  cc '(10.1 11.1 12.1   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 v (append (list a) v  ))<br />          )<br />       (progn<br />       (if (> (- (car cc) a ) 3)<br /> (setq v (list(append (list a)v)))<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))

lilq_78

;;52.5 [功能] 对表分段
;;(xl_div lst nom)表分段. -> 返回 分段的表.   －－－－－－by 无痕.2004.1
; lst ＝ 表，nom = 分段的子表元素个数(从1开始计).
;;示例 (xl_div '(1 2 3 4 5 6 7 8 9) 3) -> ((1 2 3) (4 5 6) (7 8 9))
(defun xl-div (lst x / lst2)
  (foreach n lst
    (if (and lst2 (/= x (length (car lst2))))
      (setq lst2 (cons (append (car lst2) (list n)) (cdr lst2)))
      (setq lst2 (cons (list n) lst2))
    )
  )
  (reverse lst2)
)

434939575

lilq_78 发表于 2016-7-11 15:46
;;52.5 [功能] 对表分段
;;(xl_div lst nom)表分段. -> 返回 分段的表.   －－－－－－by 无痕.2004.1
;  ...

感谢朋友的帮助！

434939575

lilq_78 发表于 2016-7-11 15:46
;;52.5 [功能] 对表分段
;;(xl_div lst nom)表分段. -> 返回 分段的表.   －－－－－－by 无痕.2004.1
;  ...

多谢指点！

vladimirputin

不错的程序，谢谢楼主分享。