Mercurial > urweb

view tests/thog.ur @ 1703:6f2f74cc4ead

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change ID generation scheme to conform to HTML standards (thanks to Edward Yang for the catch)
author Adam Chlipala <adam@chlipala.net>
date Fri, 16 Mar 2012 08:42:51 -0400
parents 714e8b84221b
children
line wrap: on
line source
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>