Undulating numbers: Difference between revisions
m
→{{header|RPL}}: tweaked the code
(added RPL) |
m (→{{header|RPL}}: tweaked the code) |
||
Line 1,043:
« n <span style="color:blue">N→UND</span> » 'n' 82 162 1 SEQ
{ }
1
PICK3 j GET
'''IF''' DUP ISPRIME? '''THEN''' + '''ELSE''' DROP '''END'''
'''NEXT'''
625 <span style="color:blue">N→UND</span>
2 53 ^ 0
'''DO''' 1 + '''UNTIL''' DUP2 <span style="color:blue">N→UND</span> < '''END'''
1 - NIP DUP <span style="color:blue">N→UND</span>
» '<span style="color:blue">TASK</span>' STO
| |||