12 lines
167 B
Text
12 lines
167 B
Text
'iterative Euclid algorithm
|
|
print GCD(-2,16)
|
|
end
|
|
|
|
function GCD(a,b)
|
|
while b
|
|
c = a
|
|
a = b
|
|
b = c mod b
|
|
wend
|
|
GCD = abs(a)
|
|
end function
|