From 67319bf0410196787c753225f46057bc7c94beec Mon Sep 17 00:00:00 2001
From: David Robillard <d@drobilla.net>
Date: Sun, 23 Dec 2012 05:31:15 +0000
Subject: Move towards standard Scheme syntax.

git-svn-id: http://svn.drobilla.net/resp/trunk@442 ad02d1e2-f140-0410-9f75-f8b11f17cedd
---
 test/ack.scm | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 test/ack.scm

(limited to 'test/ack.scm')

diff --git a/test/ack.scm b/test/ack.scm
new file mode 100644
index 0000000..b996bf6
--- /dev/null
+++ b/test/ack.scm
@@ -0,0 +1,7 @@
+(define (ack m n)
+  (if (= 0 m) (+ n 1)
+      (= 0 n) (ack (- m 1) 1)
+      (ack (- m 1) (ack m (- n 1)))))
+
+(ack 3 10)
+
-- 
cgit v1.2.1