Re: Consecutive runs in mathematica

From: Dana (delouis_at_bellsouth.net)
Date: 03/09/05 

Date: Wed, 9 Mar 2005 07:41:41 -0500

Don't know if this would be efficient for a large array (million terms), but
here is one way. I understand your "true/false" to be variables, and not
the built-in True & False.

v = {true, true, false, true, true, true, false, true};

t = Split[v]
{{true, true}, {false}, {true, true, true}, {false}, {true}}

Max[(If[First[#1] === true, Length[#1], 0] & ) /@ t]
3

Max[(If[First[#1] === false, Length[#1], 0] & ) /@ t]
1 

-- 
Dana DeLouis
Win XP & Office 2003
"Tony King" <mathstutoring@ntlworld.com> wrote in message 
news:hiBXd.138$194.116@newsfe2-gui.ntli.net...
>I have a list which looks something like
>
> {true,true,false,true,true,true,false,true.........}
>
> that contains something like a million terms, and I would like some code 
> to return the maximum length of consecutive runs of trues and the maximum 
> length of consecutive runs of false.
>
> Any ideas / assistance would be greatly appreciated.
>
> Best wishes
>
> Tony
>

Relevant Pages