use Quantum::Superpositions qw( any all ); if ( all( undef, 2, 0, 'x' ) ) { print "They're all true!\n"; } else { print "At least one is false!\n"; } if ( any( undef, 2, 0, 'x' ) ) { print "At least one is truee!\n"; } else { print "They're all false!\n"; }
And, they will be in Perl6.
Being right, does not endow the right to be rude; politeness costs nothing.
Being unknowing, is not the same as being stupid.
Expressing a contrary opinion, whether to the individual or the group, is more often a sign of deeper thought than of cantankerous belligerence.
Do not mistake your goals as the only goals; your opinion as the only opinion; your confidence as correctness. Saying you know better is not the same as explaining you know better.
In reply to Re: An infix fix
by dragonchild
in thread An infix fix
by tlm
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |