nihonium/mipt_ocaml
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

task 3

Browse source
This commit is contained in:
nihonium 2023-10-04 22:56:34 +03:00
commit 2b9e05dc71
Signed by: nihonium
GPG key ID: 0251623741027CFC
3 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

BIN
task3/01.jpg Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 4 MiB

BIN
task3/02.jpg Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 3.7 MiB

11
task3/functions.ml Normal file
View file

@ -0,0 +1,11 @@
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));;