diff options
| author | Benedikt Böhm <bb@xnull.de> | 2009-07-07 10:43:01 +0200 |
|---|---|---|
| committer | Benedikt Böhm <bb@xnull.de> | 2009-07-07 10:43:01 +0200 |
| commit | 8582e3520ff487ea71e68a10fa8641fd95e74706 (patch) | |
| tree | 6e8a84141d45b6bd4f1bfa494b1dbe7270627754 /test/ack.t | |
| parent | 4ad083bf274a972ed7286b9b52179e30873aa830 (diff) | |
| download | swppy-8582e3520ff487ea71e68a10fa8641fd95e74706.tar.gz swppy-8582e3520ff487ea71e68a10fa8641fd95e74706.tar.xz swppy-8582e3520ff487ea71e68a10fa8641fd95e74706.zip | |
cleanup test code
Diffstat (limited to 'test/ack.t')
| -rw-r--r-- | test/ack.t | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/test/ack.t b/test/ack.t new file mode 100644 index 0000000..f9d892c --- /dev/null +++ b/test/ack.t @@ -0,0 +1,15 @@ +fun main[n,m] + print call ack[n,m] +end + +fun ack[n,m] + if n == 0 + @m + 1 + else + if m == 0 + @call ack[n-1, 1] + else + @call ack[n-1, call ack[n, m-1]] + end + end +end |