Services & ResourcesWolfram ForumsMathGroup Archive

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

Partition a list into sublists of unequal size

• To: mathgroup at smc.vnet.net
• Subject: [mg83919] Partition a list into sublists of unequal size
• From: antf <anthonyfox at gmail.com>
• Date: Tue, 4 Dec 2007 04:29:39 -0500 (EST)

Hello,

I have a list that looks like the following:

list={1,0,0,1,0,0,1,1,0,1,0,0,0,0,1,0}

I then find the positions of the 1s in the list:

positions = Flatten@Position[list,1]

{1,4,7,8,10,15}

I then want to partition a third list into sublists so that the first
sublist is from index 1;;1, the second sublist is from index 2;;4, the
third sublist is from index 5;;7, the fourth sublist is just element
8, etc.

Currently, I use Partition on the positions sublist with overlap as
in:

Partition[Join[{1},positions],2,1]

{{1,1},{1,4},{4,7},{7,8},{8,10},{10,15}}

I then use this list to partition the target list by Mapping Take to
each element of this list and adjusting the first index appropriately.

I am sure there must be a simpler way to do this.  Can anyone tell me
how to do this operation?

Thanks,
Anthony

• Follow-Ups:
  • Re: Partition a list into sublists of unequal size
    • From: Sseziwa Mukasa <mukasa@jeol.com>