8 lines
145 B
Text
8 lines
145 B
Text
function gcdp(a, b)
|
|
if b = 0 then return a
|
|
return gcdp(b, a mod b)
|
|
end function
|
|
|
|
function gcdR(a, b)
|
|
return gcdp(abs(a), abs(b))
|
|
end function
|