Prime triplets: Difference between revisions
Added Arturo implementation
Drkameleon (talk | contribs) (Added Arturo implementation) |
|||
Line 84:
Found 43 prime sequence(s) that differ by: [ 2 4 ]
</pre>
=={{header|Arturo}}==
<lang rebol>lst: select select 2..5500 => prime? 'x
-> and? [prime? x+2] [prime? x+6]
loop split.every: 5 lst 'a ->
print map a 'item [
pad join.with:", "
to [:string] @[item item+2 item+6] 17
]</lang>
{{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</pre>
=={{header|AWK}}==
| |||