Anonymous user
Triplet of three numbers: Difference between revisions
→{{header|Phix}}
(Realize in F#) |
|||
Line 689:
5654 = 5653 5657 5659
5738 = 5737 5741 5743</pre>
=={{header|Perl}}==
<lang perl>#!/usr/bin/perl
use strict; # https://rosettacode.org/wiki/Triplet_of_three_numbers
use warnings;
my %cache;
sub isprime { $cache{$_[0]} //= (1 x $_[0]) =~ /^(11+)\1+$/ ? 0 : 1 }
for ( 3 .. 6000 )
{
$_ & 1 and isprime($_+6) and isprime($_+4) and isprime($_) and
printf "%6d" x 4 . "\n", $_ + 1, $_, $_ + 4, $_ + 6;
}</lang>
{{out}}
<pre>
8 7 11 13
14 13 17 19
38 37 41 43
68 67 71 73
98 97 101 103
104 103 107 109
194 193 197 199
224 223 227 229
278 277 281 283
308 307 311 313
458 457 461 463
614 613 617 619
824 823 827 829
854 853 857 859
878 877 881 883
1088 1087 1091 1093
1298 1297 1301 1303
1424 1423 1427 1429
1448 1447 1451 1453
1484 1483 1487 1489
1664 1663 1667 1669
1694 1693 1697 1699
1784 1783 1787 1789
1868 1867 1871 1873
1874 1873 1877 1879
1994 1993 1997 1999
2084 2083 2087 2089
2138 2137 2141 2143
2378 2377 2381 2383
2684 2683 2687 2689
2708 2707 2711 2713
2798 2797 2801 2803
3164 3163 3167 3169
3254 3253 3257 3259
3458 3457 3461 3463
3464 3463 3467 3469
3848 3847 3851 3853
4154 4153 4157 4159
4514 4513 4517 4519
4784 4783 4787 4789
5228 5227 5231 5233
5414 5413 5417 5419
5438 5437 5441 5443
5648 5647 5651 5653
5654 5653 5657 5659
5738 5737 5741 5743
</pre>
=={{header|Phix}}==
| |||