Mercurial > urweb

view tests/tail.ur @ 1621:62d6d452c2b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change client-side int parsing to match server-side, in ignoring initial zeroes
author Adam Chlipala <adam@chlipala.net>
date Sat, 03 Dec 2011 10:07:50 -0500
parents d80734855790
children
line wrap: on
line source
fun one () = return 1

fun addEm n =
    if n = 0 then
        return 0
    else
        n1 <- rpc (one ());
        n2 <- addEm (n - 1);
        return (n1 + n2)

fun addEm' n acc =
    if n = 0 then
        return acc
    else
        n1 <- rpc (one ());
        addEm' (n - 1) (n1 + acc)

fun main () =
    s <- source 0;
    s' <- source 0;
    return <xml><body onload={n <- addEm 3; set s n; n <- addEm' 4 0; set s' n; alert "Welcome!"}>
      <dyn signal={n <- signal s; return (txt n)}/>
      <dyn signal={n <- signal s'; return (txt n)}/>
    </body></xml>