Special neighbor primes: Difference between revisions
→{{header|RPL}}: minor code imrpovement
(add RPL) |
(→{{header|RPL}}: minor code imrpovement) |
||
Line 1,045:
'''IF''' DUP2 + <span style="color:red">1</span> - ISPRIME? '''THEN''' DUP2 R→C <span style="color:red">4</span> ROLL SWAP + UNROT '''END'''
NIP DUP NEXTPRIME
'''UNTIL'''
DROP2
≫ ≫ '<span style="color:blue">SNP</span>' STO
|