Re: Meditations on a Loop

[John M. Dlugosz]

Larry Wall larry-at-wall.org |Perl 6| wrote:

And since the "when" modifier counts as a conditional, you can rewrite

    grep Dog, @mammals

as

    $_ when Dog for @mammals;

So perhaps will see a lot of subtypes used this way:

    subset Odd if Int where { $_ % 2 };
    @evens = ($_ * 2 when Odd for 0..*);

   @primes = do $_ if prime($_) for 1..100;

becomes

   @primes = $_ when prime($_) for 1..100;

?

Not sure that is any better.