annotate tests/overflow.ur @ 1684:9dd8d47c3e58

Extend and document RANDOM
author Adam Chlipala <adam@chlipala.net>
date Sat, 04 Feb 2012 10:42:18 -0500
parents 4d0b80dd4c37
children
rev   line source
adam@1522 1 fun makeList n = if n = 0 then [] else 1 :: makeList (n - 1)
adam@1522 2
adam@1522 3 fun doit {N = n} = return <xml><body>{[List.length (makeList (readError n))]}</body></xml>
adam@1522 4
adam@1522 5 fun main () =
adam@1522 6 return <xml><body>
adam@1522 7 <form> <textbox{#N}/> <submit action={doit}/> </form>
adam@1522 8 </body></xml>