in reply to Useful uses of Quantum::Superpositions?

Well sure - who couldn't use the any() and all() functions? They're so useful that perl6 included them in the core. The idea is that you can say something like 5 == any( 1 .. 10 ) and have it evaluate true because one of the possible expressions is true. Similarly, all( 'marsh', 'munchkin', 'mink') =~ /^m/ would also be true because all the expressions evaluate to true. Obviously this is something that can be done in perl5 - it just requires more code.

Now as for actually using Q::S ... no. Its heavier weight than I'd prefer. My most common wish is for the two disjunctions - any of a list of regexes being true and any of a list of strings being equal. I just do those up as plain subs but its not as pretty as perl6 will let me be.

sub qrany { $_ =~ $_[0] and return 1 for @_[ 1 .. $#_ ]; return 0 }
sub eqany { $_ eq $_[0] and return 1 for @_[ 1 .. $#_ ]; return 0 }

[download]

Replies are listed 'Best First'.
Re: Re: Useful uses of Quantum::Superpositions?
by Anonymous Monk on Apr 04, 2003 at 07:07 UTC
    5 == any( 1 .. 10 )

    I can see some usefulness in this, but it operates basically as a range statement. So it does simplify the following by a bit:

    for (1 .. 10) { print "$_\n" if ($var == $_); }

    Unless there's a simpler way to do this. Same goes for the all example you provided. As for Perl 6, do you know if these were covered in the apocolypses yet?

[reply]
[d/l]
[select]

      That is exactly what any() does. It superimposes all of its values into a single scalar and operations on it touch all values. So if you use it in a logical operation like numeric equality - a disjunction has a true value if any of the potential operations have a true value. The point to making this a core feature is that it is syntactically easier to say things like $foo == any( $bar, $baz ..... ). Or my favorite - do the same thing for the m operator.

      You'll find junctions in Apocalypse 4 though I gather its actualy more of an operator thing which is apocalypse 3. *shrug*.

[reply]
[d/l]
        Does this mean you could do something like any(1..10)+1; And if so, what does it do?
        If I weren't at school, I'd try it myself.

        feanor_269
[reply]
[reply]

In Section Meditations