Double Twin Primes: Difference between revisions
Added Perl
(Double Twin Primes in Dart) |
SqrtNegInf (talk | contribs) (Added Perl) |
||
Line 373:
printdt(1000)
</syntaxhighlight>{{out}} Same as C example.
=={{header|Perl}}==
{{libheader|ntheory}}
<syntaxhighlight lang="perl" line>use v5.36;
use ntheory 'is_prime';
sub dt ($p) { map { $p + $_ } <0 2 6 8> }
for my $n (1..1000) { say "@{[dt $n]}" if 4 == +(grep { is_prime $_ } dt $n) }</syntaxhighlight>
{{out}}
<pre>5 7 11 13
11 13 17 19
101 103 107 109
191 193 197 199
821 823 827 829</pre>
=={{header|Phix}}==
| |||