Help for this page

Select Code to Download

Select or download this

# x.pl
use Benchmark qw(timethese cmpthese);
...
        }
    }
);

Select or download this

$ perl x.pl $(seq 1 1000)
              Rate    reisinge GrandFather
...
              Rate    reisinge GrandFather
reisinge    34.1/s          --        -18%
GrandFather 41.6/s         22%          --