Mercurial > urweb
view lib/ur/list.ur @ 799:9330ba3a2799
cselect.onchange
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 14 May 2009 11:04:56 -0400 |
parents | 6271f0e3c272 |
children | e92cfac1608f |
line wrap: on
line source
datatype t = datatype Basis.list val show (a ::: Type) (_ : show a) = let fun show' (ls : list a) = case ls of [] => "[]" | x :: ls => show x ^ " :: " ^ show' ls in mkShow show' end val rev (a ::: Type) = let fun rev' acc (ls : list a) = case ls of [] => acc | x :: ls => rev' (x :: acc) ls in rev' [] end fun mp (a ::: Type) (b ::: Type) f = let fun mp' acc ls = case ls of [] => rev acc | x :: ls => mp' (f x :: acc) ls in mp' [] end fun mapX (a ::: Type) (ctx ::: {Unit}) f = let fun mapX' ls = case ls of [] => <xml/> | x :: ls => <xml>{f x}{mapX' ls}</xml> in mapX' end