Prime triplets: Difference between revisions
Added Quackery.
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
(Added Quackery.) |
||
Line 829:
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}}==
| |||