38 lines
743 B
Plaintext
38 lines
743 B
Plaintext
// Test the pattern matching functionality of PascaLIGO
|
|
|
|
function match_bool (const i : int) : int is
|
|
block {
|
|
var result : int := 23;
|
|
case i = 2 of
|
|
True -> result := 42
|
|
| False -> result := 0
|
|
end
|
|
} with result
|
|
|
|
function match_option (const o : option (int)) : int is
|
|
block {
|
|
var result : int := 23;
|
|
case o of
|
|
None -> skip
|
|
| Some (s) -> result := s
|
|
end
|
|
} with result
|
|
|
|
function match_expr_bool (const i : int) : int is
|
|
case i = 2 of
|
|
True -> 42
|
|
| False -> 0
|
|
end
|
|
|
|
function match_expr_option (const o : option (int)) : int is
|
|
case o of
|
|
None -> 42
|
|
| Some (s) -> s
|
|
end
|
|
|
|
function match_expr_list (const l : list (int)) : int is
|
|
case l of
|
|
nil -> -1
|
|
| hd # tl -> hd
|
|
end
|