Least m such that n! + m is prime: Difference between revisions

Content added Content deleted

Inline

@@ Line 359: / Line 359: @@
 =={{header|RPL}}==
- « « n FACT DUP NEXTPRIME SWAP - » 'n' 0 4 ROLL 1 SEQ
+ « 49 0 « ←n FACT DUP NEXTPRIME SWAP - »
+   → max ←n m
- » '<span style="color:blue">A33932</span>' STO
+   « m '←n' 0 max 1 SEQ
+     max '←n' STO
- « 49 DUP <span style="color:blue">A33932</span>
+     '''DO''' '←n' INCR DROP m EVAL
-   SWAP
-   '''DO''' 1 +
+     '''UNTIL''' 1000 > '''END'''
+     ←n
-      DUP FACT DUP NEXTPRIME SWAP -
+ » » '<span style="color:blue">TASK</span>' STO
-   '''UNTIL''' 1000 > '''END'''
- » '<span style="color:blue">TASK</span>' STO
 {{out}}
 <pre>