1 files changed, 11 insertions, 0 deletions
diff --git a/tests/langbench/fib.pl b/tests/langbench/fib.pl
new file mode 100644
index 0000000..603a989
--- /dev/null
+++ b/tests/langbench/fib.pl
@@ -0,0 +1,11 @@
+sub fib
+{
+	my($n) = @_[0];
+
+	return $n if $n < 2;
+	return &fib($n - 1) + &fib($n - 2);
+}
+
+for ($i = 0; $i <= 30; ++$i) {
+	printf "n=%d => %d\n", $i, &fib($i);
+}