Re: How do I write subs that take bare blocks as args?

[flounder99]

in reply to How do I write subs that take bare blocks as args?

Couldn't this be done with a grep?

if (grep {$_->price <= 1000} @product_list) {
    # do stuff
}

--

flounder

[DamnDirtyApe]

Hey, good idea! Except, to work the same as my example, it needs to be:

if ( ( grep { $_->price <= 1000 } @product_list  ) == @product_list )
{
    # do stuff
}


_______________
D a m n D i r t y A p e
Home Node | Email

[flounder99]

You are right. In my example the { #do stuff } block will get executed if any of the members of @product_list pass the conditions. You want to know if all members pass.

IIRC won't perl6 have some kind of any and all builtins?

--

flounder

[theorbtwo]

It will. But Quantum::Superpositions will give them to you now. (Warning: This module is superfreaky.)

---

We are using here a powerful strategy of synthesis: wishful thinking. -- The Wizard Book

[Aristotle]

Why so complicated? :)

if(not grep { $_->price > 1000 } @product_list) {
    # do stuff
}

Update:

my @p = (0,2,4,5,2,5,7,7);
print "1: none\n" if not grep { $_ > 1000 } @p;
push @p, 1002;
print "2: none\n" if not grep { $_ > 1000 } @p;

=output
1: none

____________
Makeshifts last the longest.

[Anonymous Monk]

Why so complicated? :)

And your idea of uncomplicating things is to make them not work as desired?