Coprimes: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add J) |
SqrtNegInf (talk | contribs) (Added Perl) |
||
Line 529: | Line 529: | ||
17 23 |
17 23 |
||
18 29</pre> |
18 29</pre> |
||
=={{header|Perl}}== |
|||
{{libheader|ntheory}} |
|||
<lang perl>use strict; |
|||
use warnings; |
|||
use ntheory 'gcd'; |
|||
printf "%7s %s\n", (gcd(@$_) == 1 ? 'Coprime' : ''), join ', ', @$_ |
|||
for [21,15], [17,23], [36,12], [18,29], [60,15], [21,22,25,31,143]; |
|||
</lang> |
|||
{{out}} |
|||
<pre> 21, 15 |
|||
Coprime 17, 23 |
|||
36, 12 |
|||
Coprime 18, 29 |
|||
60, 15 |
|||
Coprime 21, 22, 25, 31, 143</pre> |
|||
=={{header|Phix}}== |
=={{header|Phix}}== |