Coprimes: Difference between revisions
Content added Content deleted
(Added Algol W) |
(add FreeBASIC) |
||
Line 439: | Line 439: | ||
{ 60 15 } |
{ 60 15 } |
||
{ 21 22 25 31 143 } Coprime |
{ 21 22 25 31 143 } Coprime |
||
</pre> |
|||
=={{header|FreeBASIC}}== |
|||
<lang freebasic>function gcdp( a as uinteger, b as uinteger ) as uinteger |
|||
'returns the gcd of two positive integers |
|||
if b = 0 then return a |
|||
return gcdp( b, a mod b ) |
|||
end function |
|||
function gcd(a as integer, b as integer) as uinteger |
|||
'wrapper for gcdp, allows for negatives |
|||
return gcdp( abs(a), abs(b) ) |
|||
end function |
|||
function is_coprime( a as integer, b as integer ) as boolean |
|||
return (gcd(a,b)=1) |
|||
end function |
|||
print is_coprime(21,15) |
|||
print is_coprime(17,23) |
|||
print is_coprime(36,12) |
|||
print is_coprime(18,29) |
|||
print is_coprime(60,15) |
|||
</lang> |
|||
{{out}}<pre> |
|||
false |
|||
true |
|||
false |
|||
true |
|||
false |
|||
</pre> |
</pre> |
||