Mercurial > urweb

view tests/thog.ur @ 2134:752e5efe9da9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use hyperref in manual This allows the table of contents to show up properly in PDF readers.
author Julian Squires <julian@cipht.net>
date Fri, 24 Apr 2015 07:43:22 -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>