Deceptive numbers: Difference between revisions
Content added Content deleted
(added RPL) |
(added RPL) |
||
Line 1,270: | Line 1,270: | ||
2 + |
2 + |
||
'''END''' DROP |
'''END''' DROP |
||
» '<span style="color:blue">TASK</span>' STO |
|||
⚫ | |||
'''With a wheel:''' |
|||
« { 4 6 2 6 4 2 4 2 } DUP SIZE → wheel wsize |
|||
« { } 49 |
|||
'''WHILE''' OVER SIZE 10 < '''REPEAT''' |
|||
1 wsize '''FOR''' j |
|||
'''IF''' DUP ISPRIME? NOT '''THEN''' |
|||
DUP MODSTO 10 OVER 1 - POWMOD |
|||
'''IF''' 1 == '''THEN''' SWAP OVER + SWAP '''END''' |
|||
'''END''' |
|||
wheel j GET + |
|||
'''NEXT''' |
|||
'''END''' DROP |
|||
» » '<span style="color:blue">TASK</span>' STO |
|||
Runs in 1:26 minutes on a HP-50g. |
|||
{{out}} |
{{out}} |
||
<pre> |
<pre> |
||
1: { 91 259 451 481 703 1729 2821 2981 3367 4141 } |
1: { 91 259 451 481 703 1729 2821 2981 3367 4141 } |
||
</pre> |
</pre> |
||
⚫ | |||
=={{header|Ruby}}== |
=={{header|Ruby}}== |