Add comparisons; tak example

3 files changed, 4 insertions, 1 deletions

diff --git a/test/fib.test b/test/fib.test
index cb5a5fa..e005688 100644
--- a/test/fib.test
+++ b/test/fib.test
@@ -1,2 +1,2 @@
-fib n = if n (if (n-1) (fib(n-1) + fib(n-2)) 1) 1
+fib n = if (n < 2) 1 (fib(n-1) + fib(n-2))
 fib(30)
diff --git a/test/tak.result b/test/tak.result
new file mode 100644
index 0000000..ec63514
--- /dev/null
+++ b/test/tak.result
@@ -0,0 +1 @@
+9
diff --git a/test/tak.test b/test/tak.test
new file mode 100644
index 0000000..62a86b0
--- /dev/null
+++ b/test/tak.test
@@ -0,0 +1,2 @@
+tak x y z = if (x <= y) z tak(tak(x-1,y,z), tak(y-1,z,x), tak(z-1,x,y))
+tak(24,16,8)