Prime triplets: Difference between revisions
Content added Content deleted
(Added solution for Action!) |
|||
Line 12: | Line 12: | ||
:* The RosettaCode task for other patterns of primes: [[Successive prime differences]] |
:* The RosettaCode task for other patterns of primes: [[Successive prime differences]] |
||
<br><br> |
<br><br> |
||
=={{header|Action!}}== |
|||
{{libheader|Action! Sieve of Eratosthenes}} |
|||
<lang Action!>INCLUDE "H6:SIEVE.ACT" |
|||
PROC Main() |
|||
DEFINE MAX="5499" |
|||
BYTE ARRAY primes(MAX+1) |
|||
INT i,count=[0] |
|||
Put(125) PutE() |
|||
Sieve(primes,MAX+1) |
|||
FOR i=2 TO MAX-6 |
|||
DO |
|||
IF primes(i)=1 AND primes(i+2)=1 AND (primes(i+6))=1 THEN |
|||
PrintF("(%I %I %I) ",i,i+2,i+6) |
|||
count==+1 |
|||
FI |
|||
OD |
|||
PrintF("%E%EThere are %I prime triplets",count) |
|||
RETURN</lang> |
|||
{{out}} |
|||
[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Prime_triplets.png Screenshot from Atari 8-bit computer] |
|||
<pre> |
|||
(5 7 11) (11 13 17) (17 19 23) (41 43 47) (101 103 107) (107 109 113) (191 193 197) (227 229 233) (311 313 317) (347 349 353) |
|||
(461 463 467) (641 643 647) (821 823 827) (857 859 863) (881 883 887) (1091 1093 1097) (1277 1279 1283) (1301 1303 1307) |
|||
(1427 1429 1433) (1481 1483 1487) (1487 1489 1493) (1607 1609 1613) (1871 1873 1877) (1997 1999 2003) (2081 2083 2087) |
|||
(2237 2239 2243) (2267 2269 2273) (2657 2659 2663) (2687 2689 2693) (3251 3253 3257) (3461 3463 3467) (3527 3529 3533) |
|||
(3671 3673 3677) (3917 3919 3923) (4001 4003 4007) (4127 4129 4133) (4517 4519 4523) (4637 4639 4643) (4787 4789 4793) |
|||
(4931 4933 4937) (4967 4969 4973) (5231 5233 5237) (5477 5479 5483) |
|||
There are 43 prime triplets |
|||
</pre> |
|||
=={{header|ALGOL 68}}== |
=={{header|ALGOL 68}}== |