RosettaCodeData/Task/Least-common-multiple/Ring/least-common-multiple.ring

14 lines
189 B
Text
Raw Permalink Normal View History

2016-12-05 23:44:36 +01:00
see lcm(24,36)
func lcm m,n
lcm = m*n / gcd(m,n)
return lcm
func gcd gcd, b
while b
c = gcd
gcd = b
b = c % b
end
return gcd