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/12-nested-mutual-recursion.hobix

15 lines
234 B
Text
Raw Normal View History

2023-12-11 11:49:02 +01:00
fun h (x, y, z) =
fun f (x) =
if x =? 0 then z
else g (x - 1)
fi
and g (x) =
if x =? 0 then y
else f (x - 1)
fi;
g (x)
val main =
print_int (h (2, 20, 42));
print_int (h (3, 20, 42))