[hcoop/debian/mlton.git] / regression / fact.sml

val rec fact =
   fn 0 => 1
    | n => n * fact(n - 1)

val _ = print(concat[Int.toString(fact 10), "\n"])
Commit	Line	Data
7f918cf1 CE	1	val rec fact =
	2	fn 0 => 1
	3	\| n => n * fact(n - 1)
	4
	5	val _ = print(concat[Int.toString(fact 10), "\n"])