还是一个表分割的问题.已经在QQ群里解决
本帖最后由 434939575 于 2015-8-5 16:26 编辑(defunc:tt()
(setq lis'(1 2 3 4 5 1120 21 22 23 24))
(tt lis) ;// ((1 2 3 4 5) (11) (20 21 22 23 24))
)
(defun tt (lst / a l1);感谢 q3_2006提供
(setq l1 nil
l1 (list (list (car lst)))
lst (cdr lst)
)
(while lst
(setq a (car lst)
lst (cdr lst)
)
(if (= 1 (- a (caar l1)))
(setq l1 (cons (cons a (car l1)) (cdr l1)))
(setq l1 (cons (list a) l1))
)
)
(reverse (mapcar 'reverse l1))
)
;对表处理感觉有点晕晕的<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">
页:
[1]