diff options
Diffstat (limited to 'ack.tpr')
-rw-r--r-- | ack.tpr | 11 |
1 files changed, 6 insertions, 5 deletions
@@ -1,7 +1,8 @@ -(def ack (fn (m n) - (if (= 0 m) (+ n 1) - (= 0 n) (ack (- m 1) 1) - (ack (- m 1) (ack m (- n 1)))))) +(def ack + (fn (m n) + (if (= 0 m) (+ n 1) + (= 0 n) (ack (- m 1) 1) + (ack (- m 1) (ack m (- n 1)))))) -(ack 3 10) +(ack 3 12) |