From 930f3d68b02bd0089e209eb80328f5db2e6fd821 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Tue, 25 Dec 2018 10:39:25 +0100
Subject: Add comparisons; tak example

---
 test/fib.test   | 2 +-
 test/tak.result | 1 +
 test/tak.test   | 2 ++
 3 files changed, 4 insertions(+), 1 deletion(-)
 create mode 100644 test/tak.result
 create mode 100644 test/tak.test

(limited to 'test')

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)
-- 
cgit v1.2.3