[编程交流] a组列表

(setq MyNewList '()                                   ;empty lists to build on
     SubList   '())
(foreach item '(1 2 3 4 5 6 7 8 9 10 11)
(if (= (length SubList) 3)                           ;test if set is done (3 items)
 (setq MyNewList (append MyNewList (list SubList))   ;add done set to main list
       SubList   '())                                ;reset
)
(setq SubList (append SubList (list item)))          ;build set of 3 items
)
(setq MyNewList (append MyNewList (list SubList)))    ;add last set, may not be complete

(defun GroupByNum ( l n / a b ) ; l as list & n as number
(while l
(repeat n
(setq a (cons (car l) a) l (cdr l))
)
(setq b (cons (reverse a) b) a nil)
)
(reverse b)
)

  (defun lst3 (lst)
   (if lst
     (cons
       (list (car lst) (cadr lst) (caddr lst))
       (lst3 (cdddr lst)))
     )
   )

(lst3 '(1 2 3 4 5 6 7 8 9 10 11 12)) -> ((1 2 3) (4 5 6) (7 8 9) (10 11 12))
(lst3 '(1 2 3 4 5 6 7 8 9 10 11)) -> ((1 2 3) (4 5 6) (7 8 9) (10 11 nil))