Mercurial > urweb

view tests/list.ur @ 2209:0ca11d57c175

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cleans up interface (it's now a command line option) and renames project to "sqlcache" in the all-one-word style. Still has issues to do with concurrency, retrying transactions, and foreign function calls that either rely on state or have side effects.
author Ziv Scully <ziv@mit.edu>
date Sat, 31 May 2014 03:08:16 -0400
parents 9021d44ba6b2
children
line wrap: on
line source
fun isNil (t ::: Type) (ls : list t) =
    case ls of
        [] => True
      | _ => False

fun delist (ls : list string) : xbody =
        case ls of
            [] => <xml>Nil</xml>
          | h :: t => <xml>{[h]} :: {delist t}</xml>

fun callback ls = return <xml><body>
  {delist ls}
</body></xml>

fun main () = return <xml><body>
  {[isNil ([] : list bool)]},
  {[isNil (1 :: [])]},
  {[isNil ("A" :: "B" :: [])]}

  <p>{delist ("X" :: "Y" :: "Z" :: [])}</p>
  <a link={callback ("A" :: "B" :: [])}>Go!</a>
</body></xml>