Strange unique prime triplets: Difference between revisions
Added Perl
(Added Java solution) |
SqrtNegInf (talk | contribs) (Added Perl) |
||
Line 1,308:
Limit = 100000 count: 28694800655
real 1m5,378s</pre>
=={{header|Perl}}==
{{libheader|ntheory}}
<lang perl>use strict;
use warnings;
use List::Util 'sum';
use ntheory <primes is_prime>;
use Algorithm::Combinatorics 'combinations';
for my $n (30, 1000) {
printf "Found %d strange unique prime triplets up to $n.\n",
scalar grep { is_prime(sum @$_) } combinations(primes($n), 3);
}</lang>
{{out}}
<pre>Found 42 strange unique prime triplets up to 30.
Found 241580 strange unique prime triplets up to 1000.</pre>
=={{header|Phix}}==
| |||