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/01-fact.hobix

6 lines
98 B
Text
Raw Normal View History

2023-12-11 11:49:02 +01:00
fun fact (n) =
if n =? 0 then 1 else n * fact (n - 1) fi
val main =
print_int (fact (5))