Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re^4: Are monks hibernating?

by BrowserUk (Pope)
on Feb 17, 2007 at 01:25 UTC ( #600563=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
            Rate OO_7 OO_8 OO_10 OO_9 OO_6 OO_5 OO_4 OO_3 OO_2 OO_1 sub2 s
    +ub1 inline
    OO_7  70.4/s   --  -0%  -43% -44% -69% -70% -81% -88% -89% -91% -92% -
    +95%   -99%
    ...
    sub2   847/s1103% 1102% 582% 572% 273% 266% 131%  41%  29%   8%   -- -
    +39%   -84%
    sub1  1388/s1871% 1869%1017%1001% 512% 499% 278% 131% 112%  78%  64%  
    + --   -73%
    inline5179/s7252% 7246%4067%4009%2182%2134%1312% 763% 689% 562% 511% 2
    +73%     --
    
  2. or download this
    #! perl -slw
    use strict;
    ...
                                      my $i=0; $i= $o->plus1() while $i < 
    +$MAX;
        ],
    };
    
  3. or download this
    c:\test>b-recursive-nosub.pl
    Ack(3,0): 5
    ...
    Ack(3,9): 4093
    1 trial of Recursive Ack 3,9 (162.104s total)
    1 trial of Iterative Ack 3,9 (13.234s total)
    
  4. or download this
    use strict;
    use Benchmark::Timer; my $T = new Benchmark::Timer;
    ...
            3, $n + 1, Ack( 3, $n + 1 );
    $T->stop( 'Iterative Ack 3,' . ( $n+1 ) );
    $T->report;
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (6)
As of 2020-04-04 00:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    The most amusing oxymoron is:
















    Results (32 votes). Check out past polls.

    Notices?