gistfile1.none

pmichaud@kiwi:~/p6/rakudo$ cat forleak.p6
my $i = 0;
my $N = 200000;
my num $t0;
my num $t1;

for 1..20 {
    print "'for' loop: ";
    $i = 0;
    $t0 = nqp::time_n();
    for 1..$N { $i++ };
    $t1 = nqp::time_n();
    say "N=$i ", $t1-$t0;
}

pmichaud@kiwi:~/p6/rakudo$ ./perl6 forleak.p6
'for' loop: N=200000 1.92693185806274
'for' loop: N=200000 2.08303689956665
'for' loop: N=200000 2.59143304824829
'for' loop: N=200000 2.42847800254822
'for' loop: N=200000 3.33395195007324
'for' loop: N=200000 2.59483098983765
'for' loop: N=200000 2.78636598587036
'for' loop: N=200000 2.92009496688843
'for' loop: N=200000 3.02362895011902
'for' loop: N=200000 4.17074298858643
'for' loop: N=200000 4.18749094009399
'for' loop: N=200000 3.41058897972107
'for' loop: N=200000 3.63219094276428
'for' loop: N=200000 4.78981304168701
'for' loop: N=200000 3.81600904464722
'for' loop: N=200000 4.02300190925598
'for' loop: N=200000 4.13650393486023
'for' loop: N=200000 4.27296590805054
'for' loop: N=200000 6.83060908317566
'for' loop: N=200000 4.50168013572693