Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    
    ...
            my $result = sprintf "$count iteration$s so far...\n";
        }
    }
    
  2. or download this
    [liverpole@diamond<28>]% benchmark.pl
    timethis 2000000: 25 wallclock secs (20.27 usr +  0.05 sys = 20.32 CPU
    +) @ 98425.20/s (n=2000000)
    timethis 2000000: 19 wallclock secs (17.12 usr +  0.01 sys = 17.13 CPU
    +) @ 116754.23/s (n=2000000)