This repository has been archived on 2024-01-18. You can view files and clone it, but cannot push or open issues or pull requests.
compilation/flap/tests/02-Interpreter/45-match-04.eval.hopix.human-readable

9 lines
239 B
Text
Raw Normal View History

2023-10-25 15:16:53 +02:00
let test =
match (Here ("O", "K", ".\n")) {
| Here (x, y, z) ->
print_string ("This test is ");
print_string (x);
print_string (y);
print_string (z)
| NotHere -> print_string ("This test is KO.\n")
}