Neighbour primes: Difference between revisions
Content added Content deleted
(Added XPL0 example.) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 86: | Line 86: | ||
{{output}} |
{{output}} |
||
<lang applescript>{3, 5, 7, 13, 19, 67, 149, 179, 229, 239, 241, 269, 277, 307, 313, 397, 401, 419, 439, 487}</lang> |
<lang applescript>{3, 5, 7, 13, 19, 67, 149, 179, 229, 239, 241, 269, 277, 307, 313, 397, 401, 419, 439, 487}</lang> |
||
=={{header|Arturo}}== |
|||
<lang rebol>primesUpTo500: select 1..500 => prime? |
|||
print [pad "p" 5 pad "q" 4 pad "p*q+2" 7] |
|||
print "--------------------" |
|||
i: 0 |
|||
while [i < dec size primesUpTo500][ |
|||
p: primesUpTo500\[i] |
|||
q: primesUpTo500\[i+1] |
|||
if prime? 2 + p * q [ |
|||
prints pad to :string p 5 |
|||
prints pad to :string q 5 |
|||
print pad to :string 2 + p * q 8 |
|||
] |
|||
i: i + 1 |
|||
]</lang> |
|||
{{out}} |
|||
<pre> p q p*q+2 |
|||
-------------------- |
|||
3 5 17 |
|||
5 7 37 |
|||
7 11 79 |
|||
13 17 223 |
|||
19 23 439 |
|||
67 71 4759 |
|||
149 151 22501 |
|||
179 181 32401 |
|||
229 233 53359 |
|||
239 241 57601 |
|||
241 251 60493 |
|||
269 271 72901 |
|||
277 281 77839 |
|||
307 311 95479 |
|||
313 317 99223 |
|||
397 401 159199 |
|||
401 409 164011 |
|||
419 421 176401 |
|||
439 443 194479 |
|||
487 491 239119</pre> |
|||
=={{header|AWK}}== |
=={{header|AWK}}== |