Revision as of 19:45, 4 September 2023 (view source) Aerobar (talk \| contribs) (add RPL) ← Older edit		Revision as of 20:12, 4 September 2023 (view source) Aerobar (talk \| contribs) m (→‎{{header\|RPL}}: improve code) Newer edit →
Line 1,332: =={{header\|RPL}}== {{works with\|HP\|49}} ≪ → max ≪ { } 2 '''WHILE''' DUP max < '''REPEAT''' ~~'''IF''' DUPDUP~~DUP NEXTPRIME * 2 + ISPRIME? '''THEN''' SWAP OVER + SWAP '''END''' '''IF''' DUP2 * 2 + ISPRIME? '''THEN''' UNROT + SWAP '''ELSE''' NIP '''END''' ~~NEXTPRIME~~ '''END''' DROP ≫ ≫ '<span style="color:blue">NEIGHB</span>' STO

Neighbour primes: Difference between revisions

Neighbour primes (view source)