diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/fib.test | 2 | ||||
| -rw-r--r-- | test/tak.result | 1 | ||||
| -rw-r--r-- | test/tak.test | 2 |
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) |