1 files changed, 21 insertions, 0 deletions
diff --git a/fib4 b/fib4
new file mode 100755
index 0000000000..71b11f10b3
--- /dev/null
+++ b/fib4
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+
+sub fib
+{
+    local($a) = $_[0];
+    ($a < 2) ? $a : &fib($a-1) + &fib($a-2);
+}
+
+sub myruntime
+{
+    local(@t) = times;          #  in seconds
+    $t[0] + $t[1];
+}
+
+$x = (shift || 20);
+print "Starting fib($x)\n";
+$before = &myruntime;
+$y = &fib($x);
+$after = &myruntime;
+printf("Done. Result $y in %g cpu seconds.\n", $after-$before);
+