[必看]：请教各位GG，怎样才能把一个序列按数目给分组呀！

jianqiang21c

有个非常非常难办的问题哦，就是怎么样才能把一个序列等分：
比如说了：
（a b 5 6 c p..........)
假如说现在以两个为等分
实现：((a b) (5 6) (c p)....)
帮帮我呀^_^

zhynt

思路：先读取表中的第一、二个元素组成新表，并将原表中的这两个元素删除，再读取前两个添加到新表中，如此循环。

ll_j

2. 
   
3. (setq aa'(a b c d e f g))
   
4. (setq i 0 al nil)
   
5. (while aa
   
6.   (setq al (cons (list (car aa) (cadr aa)) al)
   
7.         aa (cddr aa)
   
8.         i (1+ i)
   
9.   )
   
10. )
    
11. (reverse al)
    

<br /> (setq aa'(a b c d e f g))<br /> (setq i 0 al nil)<br /> (while aa<br />   (setq al (cons (list (car aa) (cadr aa)) al)<br />         aa (cddr aa)<br />         i (1+ i)<br />   )<br /> )<br /> (reverse al)<br />

LUCAS

2. 
   
3. (setq WW      '(a b 5 6 c p 2 5 y 8 b 32 89 f 2 5 8u g)
   
4.       N              0
   
5.       LIST_WW NIL
   
6. )
   
7. (repeat        (/ (length WW) 2)
   
8.   (setq LIST_WW (cons (list (nth N WW) (nth (+ N 1) WW)) LIST_WW))
   
9.   (setq N (+ 2 N))
   
10. )
    
11. (setq LIST_WW (reverse LIST_WW))
    

<br /> (setq WW      '(a b 5 6 c p 2 5 y 8 b 32 89 f 2 5 8u g)<br />       N              0<br />       LIST_WW NIL<br /> )<br /> (repeat        (/ (length WW) 2)<br />   (setq LIST_WW (cons (list (nth N WW) (nth (+ N 1) WW)) LIST_WW))<br />   (setq N (+ 2 N))<br /> )<br /> (setq LIST_WW (reverse LIST_WW))<br />

aeo

2. 
   
3. (defun split(n li /  return a)
   
4. (while li
   
5.    (setq a nil)
   
6.    (repeat (if(<= n(length li))n(length li))(setq a(cons (car li)a) li(cdr li) ))
   
7.    (setq return(cons (reverse a ) return))
   
8. )
   
9. (reverse return)
   
10. )

<br /> (defun split(n li /  return a)<br /> (while li <br />    (setq a nil)<br />    (repeat (if(<= n(length li))n(length li))(setq a(cons (car li)a) li(cdr li) ))<br />    (setq return(cons (reverse a ) return))<br /> )<br /> (reverse return)<br /> )

(split  个数 表)

blue

上面这几位写程序的大虾，你们写的程序有几个地方小弟不知，请教？
为什么a要赋值nil?
为什么要用reverse表倒置函数？

jianqiang21c

楼上的GG笨笨哦，嘻嘻
1.a要赋值nil                    先贷款买房子，有了房子就可以全家搬进去住喽
2.用reverse表倒置函数   一包水果糖，一包奶糖，其中一个夹心糖在其中一包里面，为了找到夹心糖你把水果糖和奶糖都倒出来唠，找到了夹心糖，当然要把水果糖和奶糖放回各自的盒子里喽

aeo

1.a要赋值nil ,因为一个房子,我家要住,接着你家也要住,你家搬进去时,要把我家人赶走,不然就两家住一个房了.
2.一本书一页页看,看完了,一本书就反过来了,你放到书架上时,肯定又要反一下的.