You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
12 lines
237 B
OCaml
12 lines
237 B
OCaml
1 year ago
|
type ('a, 'b) or_ =
|
||
|
|
| Inl of 'a
|
||
|
|
| Inr of 'b;;
|
||
|
|
|
||
|
|
let f1 x = match snd x with
|
||
|
|
|Inl y -> Inl (fst x, y)
|
||
|
|
| Inr z -> Inr (fst x, z);;
|
||
|
|
|
||
|
|
let f2 x = match x with
|
||
|
|
|Inl y -> (fst y, Inl (snd y))
|
||
|
|
|Inr z -> (fst z, Inr (snd z));;
|