Re: Extracting information from lists
- To: mathgroup at smc.vnet.net
- Subject: [mg63346] Re: Extracting information from lists
- From: dh <dh at metrohm.ch>
- Date: Sat, 24 Dec 2005 16:02:55 -0500 (EST)
- References: <dojefh$fmb$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi Tony,
one way to do it would be to:
1: mark runs of 1 (using Split)
2: replace all 1's of a run, except the first one, by 0
3: Determine the positions of the remaining 1's
e.g.
list={7,9,1,6,8,1,1,6,5,1,1,1,8,7,6,1,1,1,1,7};
t=Split[list]
t= t /. x:{1 ..} :> {1, Rest[x] /. 1 -> 0} // Flatten;
Position[t,1] //Flatten
Daniel
Tony King wrote:
> Does anyone know of a function that will allow me to extract the positions
> of the first elements of runs of similar elements within a list. For
> example, suppose that
>
> list={7,9,1,6,8,1,1,6,5,1,1,1,8,7,6,1,1,1,1,7}
>
> I need a function that will return
>
> {3,6,10,16}
>
> corresponding to the runs {1},{1,1},{1,1,1},{1,1,1,1} within list
>
> Many thanks
>
> Tony
>