RosettaCodeData/Task/Greatest-common-divisor/Run-BASIC/greatest-common-divisor.basic
2023-07-01 13:44:08 -04:00

8 lines
135 B
Text

print abs(gcd(-220,160))
function gcd(gcd,b)
while b
c = gcd
gcd = b
b = c mod b
wend
end function