Coprimes: Difference between revisions
Added Perl
Not a robot (talk | contribs) (Add J) |
SqrtNegInf (talk | contribs) (Added Perl) |
||
Line 529:
17 23
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}}==
|