39 lines
662 B
Plaintext
39 lines
662 B
Plaintext
type foobar = {foo : int; bar : int}
|
|
|
|
let fb : foobar = {foo=0; bar=0}
|
|
|
|
type abc = {a : int; b : int; c : int}
|
|
|
|
let abc : abc = {a=42; b=142; c=242}
|
|
|
|
let a : int = abc.a
|
|
let b : int = abc.b
|
|
let c : int = abc.c
|
|
|
|
let projection (r : foobar) : int = r.foo + r.bar
|
|
|
|
let modify (r : foobar) : foobar = {foo = 256; bar = r.bar}
|
|
|
|
let modify_abc (r : abc) : abc = let c = 42 in {r with b=2048; c=c}
|
|
|
|
type big_record = {
|
|
a : int;
|
|
b : int;
|
|
c : int;
|
|
d : int;
|
|
e : int
|
|
}
|
|
|
|
let br : big_record = {
|
|
a = 23;
|
|
b = 23;
|
|
c = 23;
|
|
d = 23;
|
|
e = 23
|
|
}
|
|
|
|
type double_record = {inner : abc}
|
|
|
|
let modify_inner (r : double_record) : double_record =
|
|
{r with inner.b = 2048}
|