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/04-Hobix_to_Fopix/05-mutual-recursion.hobix
2023-12-11 11:49:02 +01:00

10 lines
149 B
Text

fun f (x) =
if x =? 0 then 1
else g (x - 1)
fi
and g (x) =
if x =? 0 then 0
else f (x - 1)
fi
val main = print_int (f (20))