for-vs-while-int-vs-Int

benchmark-for.p6

my $begin = DateTime.now;

say "Beginning at $begin";

my int @range = 0..^400;
my $count = 0;

for @range -> int $i {
    for @range -> int $j {
        for @range -> int $k {
            $count = $count + 1;
        }
    }
}

say "done $count in {now - $begin.Instant} seconds";

benchmark-while-native.p6-p6-code

# doing time inside the script, so that we don't measure startup time
my $begin = now;
say "Starting at $begin";

my int $count = 0;

my int $i = 0;
while $i < 400 {
    my int $j = 0;
    while $j < 400 {
        my int $k = 0;
        while $k < 400 {
            $k = $k + 1;
            $count = $count + 1;
        }
        $j = $j + 1;
    }
    $i = $i + 1;
}

my $interval = now - $begin;
print "done $count in $interval seconds\n";

benchmark-while-native.p6-p6-timing

done 64000000 in 4.035 seconds

benchmark.p-p5-timiing

perl benchmark.pl
done 64000000
10.51user 0.00system 0:10.51elapsed 100%CPU (0avgtext+0avgdata 7536maxresident)k
0inputs+0outputs (0major+527minor)pagefaults 0swaps

benchmark.pl-p5-code

my $count;

my $i = 0;
while ( $i < 400 ) {
    my $j = 0;
    while ( $j < 400 ) {
        my $k = 0;
        while ( $k < 400 ) {
            $k = $k + 1;
            $count = $count + 1;
        }
        $j = $j + 1;
    }
    $i = $i + 1;
}

print "done $count\n";