5 lines
123 B
Text
5 lines
123 B
Text
|
procedure lcm(i, j) #: least common multiple
|
||
|
|
if (i = 0) | (j = 0) then return 0
|
||
|
|
return abs(i * j) / gcd(i, j)
|
||
|
|
end
|