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

fun tak(x,y,z) =
   if y >= x
      then z
   else tak(tak(x - 1, y, z),
            tak(y - 1, z, x),
            tak(z - 1, x, y))

val _ = print(concat[Int.toString(tak(18,12,6)), "\n"])
Commit	Line	Data
7f918cf1 CE	1	fun tak(x,y,z) =
	2	if y >= x
	3	then z
	4	else tak(tak(x - 1, y, z),
	5	tak(y - 1, z, x),
	6	tak(z - 1, x, y))
	7
	8	val _ = print(concat[Int.toString(tak(18,12,6)), "\n"])