gistfile1.perl

pmichaud@plum:~/parrot/trunk$ cat fib.nqp
#! nqp

sub fib($n) {
    $n < 2 ?? $n !! fib($n-1) + fib($n - 2);
}

my $N := 29;

my $t0 := pir::time__N();
my $z  := fib($N);
my $t1 := pir::time__N();

pir::say("fib($N) = " ~ fib($N));
pir::say("time    = " ~ ($t1-$t0));

pmichaud@plum:~/parrot/trunk$ ./parrot-nqp --target=pir fib.nqp >fib.pir
pmichaud@plum:~/parrot/trunk$ ./parrot fib.pir
fib(29) = 514229
time    = 3.43642902374268
pmichaud@plum:~/parrot/trunk$