Neighbour primes: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,332: / Line 1,332: @@
 =={{header|RPL}}==
+{{works with|HP|49}}
  ≪ → max
    ≪ { } 2
-       '''WHILE''' DUP max < '''REPEAT'''
+      '''WHILE''' DUP max < '''REPEAT'''
-         '''IF''' DUPDUP NEXTPRIME * 2 + ISPRIME? '''THEN''' SWAP OVER + SWAP '''END'''
+         DUP NEXTPRIME
+         '''IF''' DUP2 * 2 + ISPRIME? '''THEN''' UNROT + SWAP '''ELSE''' NIP '''END'''
-         NEXTPRIME
-       '''END''' DROP
+      '''END''' DROP
  ≫ ≫ '<span style="color:blue">NEIGHB</span>' STO