From b219af5f765fbc789a7f54f50862e6730ae141fd Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Tue, 2 Aug 2011 17:04:14 -0400
Subject: Compile self-tail-calls as gotos

---
 tests/fact.ur | 5 +++++
 1 file changed, 5 insertions(+)
 create mode 100644 tests/fact.ur

(limited to 'tests/fact.ur')

diff --git a/tests/fact.ur b/tests/fact.ur
new file mode 100644
index 00000000..c7989a3b
--- /dev/null
+++ b/tests/fact.ur
@@ -0,0 +1,5 @@
+fun fact n = if n <= 1 then 1 else n * fact (n - 1)
+
+fun factTr n acc = if n <= 1 then acc else factTr (n - 1) (n * acc)
+
+fun main () : transaction page = return <xml>{[fact 10]}, {[factTr 10 1]}</xml>
-- 
cgit v1.2.3