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/53-match-12.eval.hopix.human-readable

14 lines
245 B
Text
Raw Normal View History

2023-10-25 15:16:53 +02:00
let write = \x ->
match (x) {
| O -> print_string ("O")
| K -> print_string ("K")
| D -> print_string (".")
| N -> print_string ("\n")
}
let test =
print_string ("This test is ");
write (O);
write (K);
write (D);
write (N)