8 lines
229 B
Text
8 lines
229 B
Text
function gcdp( a as uinteger, b as uinteger ) as uinteger
|
|
if b = 0 then return a
|
|
return gcdp( b, a mod b )
|
|
end function
|
|
|
|
function gcd(a as integer, b as integer) as uinteger
|
|
return gcdp( abs(a), abs(b) )
|
|
end function
|