15 lines
335 B
Text
15 lines
335 B
Text
class LCM {
|
|
function : Main(args : String[]) ~ Nil {
|
|
IO.Console->Print("lcm(35, 21) = ")->PrintLine(lcm(21,35));
|
|
}
|
|
|
|
function : lcm(m : Int, n : Int) ~ Int {
|
|
return m / gcd(m, n) * n;
|
|
}
|
|
|
|
function : gcd(m : Int, n : Int) ~ Int {
|
|
tmp : Int;
|
|
while(m <> 0) { tmp := m; m := n % m; n := tmp; };
|
|
return n;
|
|
}
|
|
}
|