gistfile1.none

pmichaud@kiwi:~/niecza$ cat x
my $x = 1;
while $x < 30 {
    say 2 ** $x;
    $x = $x + 1;
}
pmichaud@kiwi:~/niecza$ /usr/bin/time mono run/Niecza.exe x
2
4
8
16
32
64
128
256
512
1024
2048
4096
8192
16384
32768
65536
131072
262144
524288
1048576
2097152
4194304
8388608
16777216
33554432
67108864
134217728
268435456
536870912
1.49user 0.11system 0:01.12elapsed 142%CPU (0avgtext+0avgdata 261600maxresident)k
0inputs+0outputs (0major+18451minor)pagefaults 0swaps
pmichaud@kiwi:~/niecza$ cd ~/nqp
pmichaud@kiwi:~/nqp$ cat x
my $n := 1;
while $n <= 30 {
    say( pir::pow__NNN(2,$n) );
    $n := $n + 1;
}
0;
pmichaud@kiwi:~/nqp$ /usr/bin/time ./nqp -- x
2
4
8
16
32
64
128
256
512
1024
2048
4096
8192
16384
32768
65536
131072
262144
524288
1048576
2097152
4194304
8388608
16777216
33554432
67108864
134217728
268435456
536870912
1073741824
0.10user 0.02system 0:00.12elapsed 96%CPU (0avgtext+0avgdata 198832maxresident)k
0inputs+0outputs (0major+12498minor)pagefaults 0swaps
pmichaud@kiwi:~/nqp$