1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
default Order dec
$include <prelude.sail>
val "print_endline" : string -> unit
union U('a: Type) = {
Ctor : 'a
}
type pair = (int, int)
function foo(x: U(pair)) -> unit = {
match x {
Ctor(y, z) => {
print_int("y = ", y);
print_int("z = ", z)
}
};
match x {
Ctor((y, z)) => {
print_int("y = ", y);
print_int("z = ", z)
}
};
match x {
Ctor(x) => match x {
(y, z) => {
print_int("y = ", y);
print_int("z = ", z)
}
}
};
print_endline("")
}
function main((): unit) -> unit = {
foo(Ctor(1, 2));
foo(Ctor((3, 4)));
let x = (5, 6);
foo(Ctor(x));
let x = Ctor(7, 8);
foo(x);
let x = Ctor(((9, 10)));
foo(x);
let x = (11, 12);
foo(Ctor(x));
}
|
