Add fib.nqp as a recursion benchmark example.

perl6 · Sep 21, 2010 · f59925c · f59925c
1 parent df8c49d
commit f59925c
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/examples/fib.nqp b/examples/fib.nqp
@@ -0,0 +1,14 @@
+#! 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));