Cullen and Woodall numbers: Difference between revisions
m
→{{header|RPL}}: Formatting
(Minor Improvements to code.) |
m (→{{header|RPL}}: Formatting) |
||
Line 1,375:
=={{header|RPL}}==
≪ DUP R→B
1 ROT '''START''' SL '''NEXT'''
1 + B→R
≫ '<span style="color:blue">CULLIN</span>' STO
≪ <span style="color:blue">CULLIN</span> 2 -
≫ '<span style="color:blue">WDHAL</span>' STO
≪ {} 1 20 '''FOR''' n n <span style="color:blue">WDHAL</span> + '''NEXT''' ≫ EVAL▼
▲≪ {} 1 20 FOR n n CULLN + NEXT ≫ EVAL
▲≪ {} 1 20 FOR n n WDHAL + NEXT ≫ EVAL
{{out}}
<pre>
| |||