From 11a8a861a1f026a9c1869fc1a164dfb62fbcb956 Mon Sep 17 00:00:00 2001 From: David Robillard Date: Fri, 6 Mar 2009 01:23:48 +0000 Subject: Tidy. git-svn-id: http://svn.drobilla.net/resp/tuplr@53 ad02d1e2-f140-0410-9f75-f8b11f17cedd --- ack.tpr | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'ack.tpr') diff --git a/ack.tpr b/ack.tpr index c5796bb..567a360 100644 --- a/ack.tpr +++ b/ack.tpr @@ -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) -- cgit v1.2.1