p6.p6

use nqp;
sub timethese ($n, %what) {
    my %results;
    for %what.kv -> $name, &code {
        my $start = now;
        code for ^$n;
        %results{$name} = now - $start;
    }

    %results;
}

say "starting";
my %res = timethese 200000, {
    before => &before,
    after  => &after,
};

say "Before: %res<before>";
say " After: %res<after>";
printf "  Diff: %.2f%%\n",
    100*(%res<before> - %res<after>) / max(%res<before>,%res<after>);

sub infix:<foo1> (int $a, int $b) {
    nqp::add_n($a, $b);
}

sub infix:<foo2> (int $a, int $b) returns int {
    nqp::add_n($a, $b);
}

sub before {
    (my int $ = 42) foo1 (my int $ = 42);
    (my int $ = 42) foo1 (my int $ = 42);
    (my int $ = 42) foo1 (my int $ = 42);
    (my int $ = 42) foo1 (my int $ = 42);
    (my int $ = 42) foo1 (my int $ = 42);
    (my int $ = 42) foo1 (my int $ = 42);
    (my int $ = 42) foo1 (my int $ = 42);
    (my int $ = 42) foo1 (my int $ = 42);
    (my int $ = 42) foo1 (my int $ = 42);
    (my int $ = 42) foo1 (my int $ = 42);
    (my int $ = 42) foo1 (my int $ = 42);
    (my int $ = 42) foo1 (my int $ = 42);
    (my int $ = 42) foo1 (my int $ = 42);
}

sub after {
    (my int $ = 42) foo2 (my int $ = 42);
    (my int $ = 42) foo2 (my int $ = 42);
    (my int $ = 42) foo2 (my int $ = 42);
    (my int $ = 42) foo2 (my int $ = 42);
    (my int $ = 42) foo2 (my int $ = 42);
    (my int $ = 42) foo2 (my int $ = 42);
    (my int $ = 42) foo2 (my int $ = 42);
    (my int $ = 42) foo2 (my int $ = 42);
    (my int $ = 42) foo2 (my int $ = 42);
    (my int $ = 42) foo2 (my int $ = 42);
    (my int $ = 42) foo2 (my int $ = 42);
    (my int $ = 42) foo2 (my int $ = 42);
    (my int $ = 42) foo2 (my int $ = 42);
}