Re: Partition
- To: mathgroup at smc.vnet.net
- Subject: [mg71658] Re: Partition
- From: Peter Pein <petsie at dordos.net>
- Date: Sun, 26 Nov 2006 03:48:39 -0500 (EST)
- References: <ek975q$fjq$1@smc.vnet.net>
KFUPM schrieb:
> 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
>
Flatten[(Through[{First, Rest}[#1]] & ) /@ Partition[list, 5], 1]
or
Partition[list, 5] /. {(f_)?AtomQ, r__} :> Sequence[f, {r}]
are my first two ideas.
P²