Select Code to Download

sub add { ## Other subs modified in the same way.
    my $temp = $_[0] ** int( 1/ $_[ 1 ] );
    return $_[0] + $_[1];
}

## original
C:\test>junk
...
Method^2 500096/s       2%       1%       --     -12%     -21%
Sub      569519/s      16%      15%      14%       --     -10%
Sub^2    635516/s      30%      28%      27%      12%       --