Neighbour primes: Difference between revisions
Content added Content deleted
(add RPL) |
|||
Line 1,329: | Line 1,329: | ||
<pre> |
<pre> |
||
[3, 5, 7, 13, 19, 67, 149, 179, 229, 239, 241, 269, 277, 307, 313, 397, 401, 419, 439, 487] |
[3, 5, 7, 13, 19, 67, 149, 179, 229, 239, 241, 269, 277, 307, 313, 397, 401, 419, 439, 487] |
||
</pre> |
|||
=={{header|RPL}}== |
|||
≪ → max |
|||
≪ { } 2 |
|||
'''WHILE''' DUP max < '''REPEAT''' |
|||
'''IF''' DUPDUP NEXTPRIME * 2 + ISPRIME? '''THEN''' SWAP OVER + SWAP '''END''' |
|||
NEXTPRIME |
|||
'''END''' DROP |
|||
≫ ≫ '<span style="color:blue">NEIGHB</span>' STO |
|||
500 <span style="color:blue">NEIGHB</span> |
|||
{{out}} |
|||
<pre> |
|||
1: {3 5 7 13 19 67 149 179 229 239 241 269 277 307 313 397 401 419 439 487} |
|||
</pre> |
</pre> |
||