Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re^6: The Most Essential Perl Development Tools Today

by topher (Scribe)
on Jan 08, 2013 at 06:20 UTC ( #1012165=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    [0] Perl> sub a(){ 1 }; sub b(){ return 1; };; [0] Perl> cmpthese -1,{
    + a=>q[ a() for 1 .. 1000;], b=>q[b() for 1 .. 1 +000;] };; Rate b a b
    + 4668/s -- -80% a 23195/s 397% --
    [download]
    
  2. or download this
    $ perl -E 'use Benchmark qw(timethese cmpthese); sub a() { 1 }; sub b(
    +) { return 1 }; cmpthese -1,{ a=>q[ a() for 1 .. 1000;], b=>q[b() for
    + 1 .. 1000;] };'
         Rate    b    a
    b  2694/s   -- -88%
    ...
        Rate   b   a
    b 2595/s  -- -8%
    a 2823/s  9%  --
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1012165]
help
Chatterbox?
[choroba]: My recent record is 10km in 1 hour :)
[perldigious]: Nice erix... perldigious' legs are so sore from portaging his kayak from place to place last weekend he can barely hobble 12m. :-)
[erix]: you're faster than me then :)
[erix]: well, at the moment, that is :)
[erix]: I should lose some weight although I keep telling myself that I'm doing extra training by lugging it along
[erix]: I saw a common kingfisher and a couple of bullfinches
[erix]: bullfinch ( a male and a female )
erix learned the word 'portaging' not so long ago (from vikings lugging their ships from one river-system to another)

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (8)
As of 2017-05-24 12:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?