Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re^2: The Boy Scout Rule

by Your Mother (Archbishop)
on Jan 25, 2015 at 20:34 UTC ( #1114466=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    use strictures;
    use Benchmark "cmpthese";
    use List::Util "min"; # This is XS.
    ...
                       clever => sub {
                           $m = [ $_->[0], $_->[1] ]->[ $_->[0] <= $_->[1]
    + ] for @xy },
                      });
    
  2. or download this
                   Rate    clever   ternary list_util
    clever     347584/s        --      -56%      -68%
    ternary    792393/s      128%        --      -28%
    list_util 1096491/s      215%       38%        --
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1114466]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (5)
As of 2021-04-19 04:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?