Re: Partitioning lists
- To: mathgroup at smc.vnet.net
- Subject: [mg20585] Re: [mg20439] Partitioning lists
- From: Arnold Seiken <seikena at union.edu>
- Date: Sat, 30 Oct 1999 14:54:57 -0400
- Sender: owner-wri-mathgroup at wolfram.com
> I would like a function f to split a list as follows
>
> a={1,2,3,4,5,6}
> f[a] =
> {
> {{1},{2,3,4,5,6}},
> {{1,2},{3,4,5,6}},
> {{1,2,3},{4,5,6}},
> {{1,2,3,4},{5,6}},
> {{1,2,3,4,5},{6}}
> }
In[18]:=
t1=Table[Range[k], {k,1,5}];
t2=Table[Range[k,6],{k,2,6}];
Transpose[{t1, t2}]
Out[18]=
{{{1},{2,3,4,5,6}},{{1,2},{3,4,5,6}},{{1,2,3},{4,5,6}},{{1,2,3,4},{5,6}},{{1,
2,3,4,5},{6}}}