16 lines
275 B
Plaintext
16 lines
275 B
Plaintext
|
type abc = int * int * int
|
||
|
|
|
||
|
|
let projection_abc (tpl : abc) : int =
|
||
|
|
tpl.(1)
|
||
|
|
|
||
|
|
type foobar = int * int
|
||
|
|
|
||
|
|
let fb : foobar = (0, 0)
|
||
|
|
|
||
|
|
let projection (tpl : foobar) : int =
|
||
|
|
tpl.(0) + tpl.(1)
|
||
|
|
|
||
|
|
type big_tuple = int * int * int * int * int
|
||
|
|
|
||
|
|
let br : big_tuple = (23, 23, 23, 23, 23)
|