Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Partition

  • To: mathgroup at smc.vnet.net
  • Subject: [mg71678] Re: [mg71611] Partition
  • From: Andrzej Kozlowski <akoz at mimuw.edu.pl>
  • Date: Sun, 26 Nov 2006 03:49:08 -0500 (EST)
  • References: <200611251036.FAA15445@smc.vnet.net>

On 25 Nov 2006, at 19:36, KFUPM wrote:

> 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
>

The most obvious way seems to be:


Flatten[{First[#],Rest[#]}&/@Partition[list,5],1]


{a,{b,c,d,e},f,{g,h,i,j},k,{l,m,n,o}}

Andrzej Kozlowski
Tokyo, Japan


  • References:
    • Partition
      • From: "KFUPM" <hussain.alqahtani@gmail.com>
  • Prev by Date: SetPrecision vs N
  • Next by Date: Re: Partition
  • Previous by thread: Re: Partition
  • Next by thread: Re: Partition