Help for this page

Select Code to Download


  1. or download this
    use Math::BigApprox qw/Fact/;
use Benchmark qw/cmpthese/;
...
    Fact        => sub{ my $a = Fact($test)     },
    fastFact    => sub{ my $a = fastFact($test) },
} );
  2. or download this
    20000!  =>      1.819206e+77337
             Rate     Fact fastFact
Fact       7.89/s       --    -100%
fastFact 297159/s 3766395%       --