Undulating numbers: Difference between revisions
Content deleted Content added
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
| |||