19 lines
349 B
Plaintext
19 lines
349 B
Plaintext
print "lcm( 12, -18) = "; lcm( 12, -18)
|
|
print "lcm( 15, 12) = "; lcm( 15, 12)
|
|
print "lcm(-10, -14) = "; lcm(-10, -14)
|
|
print "lcm( 0, 1) = "; lcm( 0, 1)
|
|
end
|
|
|
|
function lcm(m, n)
|
|
lcm = abs(m * n) / GCD(m, n)
|
|
end function
|
|
|
|
function GCD(a, b)
|
|
while b
|
|
c = a
|
|
a = b
|
|
b = c mod b
|
|
wend
|
|
GCD = abs(a)
|
|
end function
|