18 lines
265 B
Text
18 lines
265 B
Text
sub gcd(u, v)
|
|
local t
|
|
|
|
u = int(abs(u))
|
|
v = int(abs(v))
|
|
while(v)
|
|
t = u
|
|
u = v
|
|
v = mod(t, v)
|
|
wend
|
|
return u
|
|
end sub
|
|
|
|
sub lcm(m, n)
|
|
return m / gcd(m, n) * n
|
|
end sub
|
|
|
|
print "Least common multiple: ", lcm(12345, 23044)
|