Strange unique prime triplets: Difference between revisions
Content added Content deleted
(Added Java solution) |
SqrtNegInf (talk | contribs) (Added Perl) |
||
Line 1,308: | Line 1,308: | ||
Limit = 100000 count: 28694800655 |
Limit = 100000 count: 28694800655 |
||
real 1m5,378s</pre> |
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}}== |
=={{header|Phix}}== |