(XD::List:Measure)定距分割表

st788796

1. (defun XD::List:Measure        (lst n / nl nll)
   
2.   (if (>= n (length lst))
   
3.     lst
   
4.     (progn
   
5.       (while (> (length lst) n)
   
6.         (repeat        n
   
7.           (setq        nl  (cons (car lst) nl)
   
8.                 lst (cdr lst)
   
9.           )
   
10.         )
    
11.         (setq nll (cons (reverse nl) nll)
    
12.               nl  nil
    
13.         )
    
14.       )
    
15.       (if lst
    
16.         (reverse (cons lst nll))
    
17.         (reverse nll)
    
18.       )
    
19.     )
    
20.   )
    
21. )
    

(defun XD::List:Measure        (lst n / nl nll)<br />   (if (>= n (length lst))<br />     lst<br />     (progn<br />       (while (> (length lst) n)<br />         (repeat        n<br />           (setq        nl  (cons (car lst) nl)<br />                 lst (cdr lst)<br />           )<br />         )<br />         (setq nll (cons (reverse nl) nll)<br />               nl  nil<br />         )<br />       )<br />       (if lst<br />         (reverse (cons lst nll))<br />         (reverse nll)<br />       )<br />     )<br />   )<br /> )<br />

_$ (XD::List:Measure '(1 2 3 4 5 6 7 8 9) 2)
((1 2) (3 4) (5 6) (7 8) (9))
_$ (XD::List:Measure  '(1 2 3 4 5 6 7 8 9) 3)
((1 2 3) (4 5 6) (7 8 9))
_$ (XD::List:Measure '(1 2 3 4 5 6 7 8 9) 4)
((1 2 3 4) (5 6 7 8) (9))
_$

ynhh

{:soso_e179:}
经典的好程序

434939575

感谢感谢！学习学习#

dingtiedt

各显神通啊

jetcan@21cn.com

经典的好程序:D

Loner~

看不懂 求教