将表元素 n 依次等分成若干子表

炫翔

2. ;将表元素 n 依次等分成若干子表
   
3. ;(lst-split1 lst n)
   
4. ;(lst-split1 '(0 1 2 3 4 5 6 7 8 9 10) 3)
   
5. (defun lst-split1 (ls len / tmp rl i n flag)
   
6.   (setq i 0)
   
7.   (setq n (- (length ls) (1- len)))
   
8.   (repeat n
   
9.     (setq k i
   
10.           flag t
    
11.           tmp nil
    
12.     )
    
13.     (while (and
    
14.              flag
    
15.              (nth k ls)
    
16.            )
    
17.       (setq tmp (cons (nth k ls) tmp))
    
18.       (setq k (1+ k))
    
19.       (if (zerop (rem (- k i) len))
    
20.         (setq flag nil
    
21.               rl (cons (reverse tmp) rl)
    
22.         )
    
23.       )
    
24.     )
    
25.     (setq i (1+ i))
    
26.   )
    
27.   (reverse rl)
    
28. )

;将表元素 n 依次等分成若干子表<br /> ;(lst-split1 lst n)<br /> ;(lst-split1 '(0 1 2 3 4 5 6 7 8 9 10) 3)<br /> (defun lst-split1 (ls len / tmp rl i n flag)<br />   (setq i 0)<br />   (setq n (- (length ls) (1- len)))<br />   (repeat n<br />     (setq k i<br />           flag t<br />           tmp nil<br />     )<br />     (while (and<br />              flag<br />              (nth k ls)<br />            )<br />       (setq tmp (cons (nth k ls) tmp))<br />       (setq k (1+ k))<br />       (if (zerop (rem (- k i) len))<br />         (setq flag nil<br />               rl (cons (reverse tmp) rl)<br />         )<br />       )<br />     )<br />     (setq i (1+ i))<br />   )<br />   (reverse rl)<br /> )