From 798c6feac22d94019e1247ec57c17fe3bc29fdb6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Edvard=20Th=C3=B6rnros?= <edvard.thornros@gmail.com>
Date: Wed, 17 Feb 2021 23:10:32 +0100
Subject: add fibonacci benchmark

---
 progs/bench/fib.sy | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 progs/bench/fib.sy

diff --git a/progs/bench/fib.sy b/progs/bench/fib.sy
new file mode 100644
index 0000000..a6504bf
--- /dev/null
+++ b/progs/bench/fib.sy
@@ -0,0 +1,10 @@
+// The worst implementation of fibonacci calculations
+// possible. FYI, it can be done in constant time.
+fib :: fn a:int -> int {
+    if a < 2 {
+        ret a
+    }
+    ret fib(a - 1) + fib(a - 2)
+}
+// 23 is around where things start getting slow.
+fib(28) <=> 317811
-- 
cgit v1.2.1