RosettaCodeData/Task/Least-common-multiple/FutureBasic/least-common-multiple.basic

10 lines
208 B
Plaintext

int local fn gcd_rec( a as int, b as int )
if ( b == 0 ) then return a
end fn = fn gcd_rec(b, a % b)
int def fn lcm( a as int, b as int ) = abs(a * b) / fn gcd_rec(a, b)
print fn lcm(12,18)
HandleEvents