summaryrefslogtreecommitdiff
path: root/tests/thog.ur
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2010-10-14 11:35:56 -0400
committerGravatar Adam Chlipala <adam@chlipala.net>2010-10-14 11:35:56 -0400
commitcfffcb997d0345f90444725248c7c85b035c30b4 (patch)
tree3e839cc2566526f3e4a294229c41f88e60e8d24e /tests/thog.ur
parent7bf0a0124a6c8a834983a660af53d8789ac0a8ac (diff)
-limit for running time
Diffstat (limited to 'tests/thog.ur')
-rw-r--r--tests/thog.ur9
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/thog.ur b/tests/thog.ur
new file mode 100644
index 00000000..29e335fc
--- /dev/null
+++ b/tests/thog.ur
@@ -0,0 +1,9 @@
+fun ack (m, n) =
+ if m = 0 then
+ n + 1
+ else if n = 0 then
+ ack (m - 1, 1)
+ else
+ ack (m - 1, ack (m, n - 1))
+
+fun main n = return <xml>{[ack (n, 4)]}</xml>