diff options
| author | Benjamin Barenblat <bbaren@mit.edu> | 2017-07-23 09:50:04 -0400 |
|---|---|---|
| committer | Benjamin Barenblat <bbaren@mit.edu> | 2017-07-23 09:50:04 -0400 |
| commit | 0cccdb0ae595cd7e3e136e984ac7b95b99f71a53 (patch) | |
| tree | 491d3b13813610943c60460d3e178d3a73916346 /tests/specialize.ur | |
Import urweb_20170720+dfsg.orig.tar.gz
[dgit import orig urweb_20170720+dfsg.orig.tar.gz]
Diffstat (limited to 'tests/specialize.ur')
| -rw-r--r-- | tests/specialize.ur | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/tests/specialize.ur b/tests/specialize.ur new file mode 100644 index 0000000..4032b49 --- /dev/null +++ b/tests/specialize.ur @@ -0,0 +1,40 @@ +datatype list a = Nil | Cons of a * list a + +fun isNil (t ::: Type) (ls : list t) : bool = + case ls of + Nil => True + | Cons _ => False + +fun append (t ::: Type) (ls1 : list t) (ls2 : list t) : list t = + case ls1 of + Nil => ls2 + | Cons (x, ls1') => Cons (x, append ls1' ls2) + +fun pairAppend (t1 ::: Type) (t2 ::: Type) (ls1 : list (t1 * t2)) (ls2 : list (t1 * t2)) : list (t1 * t2) = + case ls1 of + Nil => ls2 + | Cons (x, ls1') => Cons (x, pairAppend ls1' ls2) + +fun delist (ls : list string) : xml body [] [] = + case ls of + Nil => <body>Nil</body> + | Cons (h, t) => <body>{cdata h} :: {delist t}</body> + +fun pairDelist (ls : list (string * int)) : xml body [] [] = + case ls of + Nil => <body>Nil</body> + | Cons ((s, n), t) => <body>({cdata s}, {cdata (show _ n)}) :: {pairDelist t}</body> + +val ls = Cons ("X", Cons ("Y", Cons ("Z", Nil))) +val ls' = Cons ("A", Cons ("B", Nil)) + +val pls = Cons (("X", 1), Cons (("Y", 2), Cons (("Z", 3), Nil))) +val pls' = Cons (("A", 1), Cons (("B", 2), Nil)) + +fun main () : transaction page = return <html><body> + {if isNil ls then <body>It's Nil.</body> else <body>It's not Nil.</body>} + + <p>{delist (append ls' ls)}</p> + + <p>{pairDelist (pairAppend pls' pls)}</p> +</body></html> |