From 55b6a3f313670d2cb13847d1f1b04fe3e4b21d63 Mon Sep 17 00:00:00 2001
From: David Robillard <d@drobilla.net>
Date: Thu, 8 Apr 2010 20:09:16 +0000
Subject: Tuplr -> Resp (RESource Processing).

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

(limited to 'test/ack.resp')

diff --git a/test/ack.resp b/test/ack.resp
new file mode 100644
index 0000000..76fb397
--- /dev/null
+++ b/test/ack.resp
@@ -0,0 +1,7 @@
+(def (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