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/54-match-13.eval.hopix.human-readable
2023-10-25 15:16:53 +02:00

5 lines
No EOL
160 B
Text

fun show (l) =
match (l) { N -> nothing | C (x, xs) -> print_string (x); show (xs) }
let test =
show (C ("This", C (" test is ", C ("OK", C (".\n.", N)))))