RosettaCodeData/Task/Least-common-multiple/Standard-ML/least-common-multiple-2.ml

mirror of https://github.com/acmeism/RosettaCodeData.git
val rec gcd = fn (x, 0) => abs x | p as (_, y) => gcd (y, Int.rem p)

val lcm = fn p as (x, y) => Int.quot (abs (x * y), gcd p)
	`val rec gcd = fn (x, 0) => abs x \| p as (_, y) => gcd (y, Int.rem p)`

	`val lcm = fn p as (x, y) => Int.quot (abs (x * y), gcd p)`