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
>

```

• Prev by Date: Re: Extracting information from lists
• Next by Date: Re: Re: does this shut down anyone else's kernel?
• Previous by thread: Re: Extracting information from lists
• Next by thread: Re: Extracting information from lists