Re: Control flow variables

[Luke Palmer]

Jonathan Scott Duff writes:
> On Tue, Nov 18, 2003 at 11:37:22PM +0100, Seiler Thomas wrote:
> > So... lets call a function instead:
> > 
> >     my $is_ok = 1;
> >     for 0..6 -> $t {
> >         if abs(@new[$t] - @new[$t+1]) > 3 {
> >             $is_ok = 0;
> >             last;
> >         }
> >     }
> >     if $is_ok {
> >         yada()  # has sideeffects...
> >     }
> 
> my $t = 0..6;
> yada() if none(abs(@new[$t] ^- @new[$t+1])) > 3;
> 
> :-P

Ghod I love junctions.  :-)

Luke

> -Scott
> -- 
> Jonathan Scott Duff
> [EMAIL PROTECTED]