RE: Partition

*To*: mathgroup at smc.vnet.net*Subject*: [mg71670] RE: [mg71611] Partition*From*: "David Park" <djmp at earthlink.net>*Date*: Sun, 26 Nov 2006 03:48:55 -0500 (EST)

KFUPM, list = {a, b, c, d, e, f, g, h, i, j, k, l, m, n, o}; Partition the list into groups of 5. Then change each group to a Sequence of the first element and the rest of the elements. You may want to look up Sequence in Help. list2 = Partition[list, 5] {{a, b, c, d, e}, {f, g, h, i, j}, {k, l, m, n, o}} Sequence @@ {First[#], Rest[#]} & /@ list2 {a, {b, c, d, e}, f, {g, h, i, j}, k, {l, m, n, o}} David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ From: KFUPM [mailto:hussain.alqahtani at gmail.com] Dear All I have a very large list of numbers that look like this: ( although the size is different) list={a,b,c,d,e,f,g,h,i,j,k,l,m,n,o} And i need to rewrite the list into list2={a,{b,c,d,e},f,{g,h,i,j,},k,{l,m,n,o}} Since my list is too big, i need Mathematica to do it for me regardless of the site of the list. I would appreciate it if you can help me in this regard, Thanks KFUPM