Mercurial > urweb

annotate tests/thog.ur @ 1588:65d6488c82d5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix confusing error message when record unification fails because enclosed types are incompatible
author Adam Chlipala <adam@chlipala.net>
date Sat, 05 Nov 2011 09:56:52 -0400
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>