Mercurial > urweb

annotate tests/thog.ur @ 2160:72fe1cc704c5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tag NULLs with their types in SQL, to help the DBMS do type inference
author Adam Chlipala <adam@chlipala.net>
date Sat, 04 Jul 2015 19:24:26 -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>