Coprimes: Difference between revisions
Content added Content deleted
ReeceGoding (talk | contribs) m (→{{header|R}}: Syntax highlighting.) |
(Frink) |
||
Line 666: | Line 666: | ||
true |
true |
||
false |
false |
||
</pre> |
|||
=={{header|Frink}}== |
|||
<lang frink>pairs = [ [21,15],[17,23],[36,12],[18,29],[60,15] ] |
|||
for [a,b] = pairs |
|||
println["[$a, $b] are " + (gcd[a,b] == 1 ? "" : "not ") + "coprime"]</lang> |
|||
{{out}} |
|||
<pre> |
|||
[21, 15] are not coprime |
|||
[17, 23] are coprime |
|||
[36, 12] are not coprime |
|||
[18, 29] are coprime |
|||
[60, 15] are not coprime |
|||
</pre> |
</pre> |
||