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/03-Typing/15-binary-mutually-rec-function.good.typing.hopix.human-readable

7 lines
163 B
Text
Raw Normal View History

2023-11-15 19:08:33 +01:00
fun : int * int -> int
fst ((x : int), (y : int)) = snd (y, x)
and : int * int -> int
snd ((x : int), (y : int)) = fst (x, y)
let main : int = fst (3, 4)