Munchausen numbers: Difference between revisions
Content added Content deleted
(→{{header|Ruby}}: No monkeypatching) |
|||
| Line 2,496: | Line 2,496: | ||
</pre> |
</pre> |
||
=={{header|RPL}}== |
|||
≪ { } 1 5000 '''FOR''' j |
|||
j →STR DUP SIZE 0 1 ROT '''FOR''' k |
|||
OVER k DUP SUB STR→ DUP ^ + |
|||
'''NEXT''' |
|||
SWAP DROP |
|||
'''IF''' j == '''THEN''' j + '''END''' |
|||
'''NEXT''' |
|||
≫ |
|||
EVAL |
|||
{{out}} |
|||
<pre> |
|||
1: { 1 3435 } |
|||
</pre> |
|||
=={{header|Ruby}}== |
=={{header|Ruby}}== |
||
<syntaxhighlight lang="ruby"> puts (1..5000).select{|n| n.digits.sum{|d| d**d} == n}</syntaxhighlight> |
<syntaxhighlight lang="ruby"> puts (1..5000).select{|n| n.digits.sum{|d| d**d} == n}</syntaxhighlight> |
||