Prime triplets: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
(Added Quackery.) |
||
Line 829: | Line 829: | ||
print(f'[{p} {p+2} {p+6}]')</syntaxhighlight> |
print(f'[{p} {p+2} {p+6}]')</syntaxhighlight> |
||
=={{header|Quackery}}== |
|||
<code>eratosthenes</code> and <code>isprime</code> are defined at [[Sieve of Eratosthenes#Quackery]]. |
|||
<syntaxhighlight lang="Quackery"> 5500 eratosthenes |
|||
[] 5500 4 - times |
|||
[ i^ isprime not if done |
|||
i^ 2 + isprime not if done |
|||
i^ 6 + isprime if |
|||
[ i^ dup 2 + |
|||
dup 4 + join join |
|||
nested join ] ] |
|||
dup witheach [ echo cr ] |
|||
cr say "There are " |
|||
size echo say " prime triplets < 5500."</syntaxhighlight> |
|||
{{out}} |
|||
<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 < 5500.</pre> |
|||
=={{header|Raku}}== |
=={{header|Raku}}== |