Mercurial > urweb

annotate tests/hog.ur @ 1688:8c2e8d41a8f2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Correct an SQL grammar omission (thanks to Alexei Golovko for spotting the problem)
author Adam Chlipala <adam@chlipala.net>
date Sat, 25 Feb 2012 15:34:44 -0500
parents a1aa62b472cf
children
rev   line source
adam@1307 1 fun more n =
adam@1307 2 if n <= 0 then
adam@1307 3 "!"
adam@1307 4 else
adam@1307 5 more (n-1) ^ more (n-1)
adam@1307 6
adam@1334 7 fun main n =
adam@1334 8 debug "Let's give this a try....";
adam@1334 9 return <xml>{[more n]}</xml>