[讨论]：又要出题目了----表项分组

陌生人

表1'(a b c d e .......)  -> '((a b ) (c d) (e f)...)
                                -> '((a b c)(d e f)(g h i)...)
                                -> '( (a b c d ...) (....)(....)....)  每个元素包含表1的n个元素

zhynt

这样划分有什么意义呢？

2. 
   
3. (defun lst_n (lst n)
   
4.   (setq        nn   (length lst)
   
5.         lst1 '()
   
6.         lst2 '()
   
7.         mm   0
   
8.   )
   
9.   (while (and (/= mm nn) (= (rem nn n) 0))
   
10.     (repeat n
    
11.       (setq lst1 (cons (nth mm lst) lst1)
    
12.             mm         (1+ mm)
    
13.       )
    
14.     )
    
15.     (setq lst2 (cons (reverse lst1) lst2)
    
16.           lst1 '()
    
17.     )
    
18.   )
    
19.   (reverse lst2)
    
20. )
    

<br /> (defun lst_n (lst n)<br />   (setq        nn   (length lst)<br />         lst1 '()<br />         lst2 '()<br />         mm   0<br />   )<br />   (while (and (/= mm nn) (= (rem nn n) 0))<br />     (repeat n<br />       (setq lst1 (cons (nth mm lst) lst1)<br />             mm         (1+ mm)<br />       )<br />     )<br />     (setq lst2 (cons (reverse lst1) lst2)<br />           lst1 '()<br />     )<br />   )<br />   (reverse lst2)<br /> )<br />

命令: (lst_n '(1 2 3 4 5 6 7 8) 2)
((1 2) (3 4) (5 6) (7 8))

命令: (lst_n '(1 2 3 4 5 6 7 8) 3)
nil

LUCAS

2. 
   
3. ;;可能是vlisp上pline分点上吧!
   
4. ;;(tt '(A B C D E F G H I J K L M N O P Q R S t U V W X Y Z) 4)
   
5. (defun TT (L1 N / N1 LIS L2)
   
6.   (setq N1 0)
   
7.   (repeat (fix (/ (length L1) N))
   
8.     (setq L2 NIL)
   
9.     (setq LIS (append LIS
   
10.                       (progn
    
11.                         (repeat        N
    
12.                           (setq L2 (append L2 (list (nth N1 L1))))
    
13.                           (setq N1 (1+ N1))
    
14.                         )
    
15.                         (list L2)
    
16.                       )
    
17.               )
    
18.     )
    
19.   )
    
20. )
    

<br /> ;;可能是vlisp上pline分点上吧!<br /> ;;(tt '(A B C D E F G H I J K L M N O P Q R S t U V W X Y Z) 4)<br /> (defun TT (L1 N / N1 LIS L2)<br />   (setq N1 0)<br />   (repeat (fix (/ (length L1) N))<br />     (setq L2 NIL)<br />     (setq LIS (append LIS<br />                       (progn<br />                         (repeat        N<br />                           (setq L2 (append L2 (list (nth N1 L1))))<br />                           (setq N1 (1+ N1))<br />                         )<br />                         (list L2)<br />                       )<br />               )<br />     )<br />   )<br /> )<br />

aeo

最初由 LUCAS 发布
[B]
;;可能是vlisp上pline分点上吧!
;;(tt '(A B C D E F G H I J K L M N O P Q R S t U V W X Y Z) 4)
(defun TT (L1 N / N1 LIS L2)
  (setq N1 0)
  (repeat (fix (/ (length L1) N))
    (setq L2 NIL... [/B]

最后没满的也应该加入

2. 
   
3. (defun tt(li n / a return)
   
4.   (while li
   
5.    (setq a(append a(list(car li)))li(cdr li));一个个来
   
6.    (if(=(length a)n)(setq return(cons a return) a nil));满就加入
   
7.   )
   
8. (if a(setq return(cons a return)));没满的加入,不想要这句去掉
   
9. (reverse return)
   
10. )
    

<br /> (defun tt(li n / a return)<br />   (while li<br />    (setq a(append a(list(car li)))li(cdr li));一个个来<br />    (if(=(length a)n)(setq return(cons a return) a nil));满就加入<br />   )<br /> (if a(setq return(cons a return)));没满的加入,不想要这句去掉<br /> (reverse return)<br /> )<br />