9 lines
136 B
Text
9 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
|