（XD::List:Divide_3）表按三个连续的元素一组重建

Lispboy

1. ; (XD::List:Divide_3 '(0 1 2 3 4 5 6 7 8)) => ((0 1 2) (3 4 5) (6 7 8))
   
2. ; (XD::List:Divide_3 '(0 1 2 3 4 5 6 7))   => ((0 1 2) (3 4 5))
   
3. (defun XD::List:Divide_3 (lst / ret)
   
4.   (repeat (/ (length lst) 3)
   
5.     (setq ret (cons (list (car lst) (cadr lst) (caddr lst)) ret))
   
6.     (setq lst (cdddr lst))
   
7.   )
   
8.   (reverse ret)
   
9. )
   

; (XD::List:Divide_3 '(0 1 2 3 4 5 6 7 8)) => ((0 1 2) (3 4 5) (6 7 8))<br /> ; (XD::List:Divide_3 '(0 1 2 3 4 5 6 7))   => ((0 1 2) (3 4 5))<br /> (defun XD::List:Divide_3 (lst / ret)<br />   (repeat (/ (length lst) 3)<br />     (setq ret (cons (list (car lst) (cadr lst) (caddr lst)) ret))<br />     (setq lst (cdddr lst))<br />   )<br />   (reverse ret)<br /> )<br />

yuanziyou

速度很快，这个函数可以用mapcar改造吗？