Mercurial > urweb

annotate tests/thog.ur @ 1924:b44138e6a3bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add activeHead tag. activeHead is similar to active but produces xhead instead of xbody
author Sergey Mironov <grrwlf@gmail.com>
date Fri, 06 Dec 2013 13:59:39 +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>