RosettaCodeData/Task/Greatest-common-divisor/Run-BASIC/greatest-common-divisor.run
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07: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