Select Code to Download

        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%     --

#! perl -slw
use strict;
...
                                  my $i=0; $i= $o->plus1() while $i < 
+$MAX;
    ],
};

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)

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;