HCoop / hcoop / debian / mlton.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Import Debian changes 20180207-1
[hcoop/debian/mlton.git] / regression / fact.sml
1 val rec fact =
2 fn 0 => 1
3 | n => n * fact(n - 1)
4
5 val _ = print(concat[Int.toString(fact 10), "\n"])
mlton packaging