regression/tak.sml

   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"])