8 lines
136 B
Text
8 lines
136 B
Text
function gcd x,y
|
|
repeat until y = 0
|
|
put x mod y into z
|
|
put y into x
|
|
put z into y
|
|
end repeat
|
|
return x
|
|
end gcd
|