Mercurial > urweb

annotate tests/thog.ur @ 1454:96353138f016

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix bug in projection of constructors from modules in class rules.
author Karn Kallio <kkallio@eka>
date Sun, 01 May 2011 00:26:08 -0430
parents 714e8b84221b
children
rev   line source
adam@1308 1 fun ack (m, n) =
adam@1308 2 if m = 0 then
adam@1308 3 n + 1
adam@1308 4 else if n = 0 then
adam@1308 5 ack (m - 1, 1)
adam@1308 6 else
adam@1308 7 ack (m - 1, ack (m, n - 1))
adam@1308 8
adam@1308 9 fun main n = return <xml>{[ack (n, 4)]}</xml>