diff options
| author | David Robillard <d@drobilla.net> | 2009-03-06 01:23:48 +0000 |
|---|---|---|
| committer | David Robillard <d@drobilla.net> | 2009-03-06 01:23:48 +0000 |
| commit | 11a8a861a1f026a9c1869fc1a164dfb62fbcb956 (patch) | |
| tree | 5e2402f5c0b0d3325455ea722b1bc776b0a052a2 /ack.tpr | |
| parent | 9817384a0e3d8fa2029eeb4dd62b707735c19110 (diff) | |
| download | resp-11a8a861a1f026a9c1869fc1a164dfb62fbcb956.tar.gz resp-11a8a861a1f026a9c1869fc1a164dfb62fbcb956.tar.bz2 resp-11a8a861a1f026a9c1869fc1a164dfb62fbcb956.zip | |
Tidy.
git-svn-id: http://svn.drobilla.net/resp/tuplr@53 ad02d1e2-f140-0410-9f75-f8b11f17cedd
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) |