Disarium numbers: Difference between revisions
→RPL entry
m (→{{header|Perl}}: prepend pascal. uups Zero not tested ...) |
|||
Line 2,546:
2646798</pre>
=={{header|RPL}}==
≪ DUP →STR → s
≪ 0
1 s SIZE FOR j
s j DUP SUB STR→ j ^ +
NEXT
≫
==
≫
‘DSRM?’ STO
≪ → n
≪ { } 0
WHILE OVER SIZE n < REPEAT
IF DUP DSRM? THEN
SWAP OVER + SWAP
END
1 +
END
DROP
≫
≫
´DSRMN’ STO
18 DSRMN
{{out}}
<pre>
{ 0 1 2 3 4 5 6 7 8 9 89 135 175 518 598 1306 1676 2427 }
</pre>
=={{header|Ruby}}==
| |||