## Mercurial > urweb

### view tests/case.ur @ 2288:98f96a976ede

Find changesets by keywords (author, files, the commit message), revision
number or hash, or revset expression.

Finish locking, but it's not yet tested rigorously.

author | Ziv Scully <ziv@mit.edu> |
---|---|

date | Fri, 13 Nov 2015 11:03:09 -0500 |

parents | 71bafe66dbe1 |

children |

line wrap: on

line source

datatype t = A | B val swap = fn x : t => case x of A => B | B => A datatype u = C of t | D val out = fn x : u => case x of C y => y | D => A datatype nat = O | S of nat val is_two = fn x : nat => case x of S (S O) => A | _ => B val zero_is_two = is_two O val one_is_two = is_two (S O) val two_is_two = is_two (S (S O))