Munchausen numbers: Difference between revisions
Added a solution for Factor
(→{{header|Ruby}}: typo in method name) |
(Added a solution for Factor) |
||
Line 551:
1
3435
</pre>
=={{header|Factor}}==
<lang factor>
USING: kernel math.functions math.ranges math.text.utils
prettyprint sequences ;
IN: rosetta-code.munchausen
: munchausen? ( n -- ? )
dup 1 digit-groups dup [ ^ ] 2map sum = ;
: main ( -- ) 5000 [1,b] [ munchausen? ] filter . ;
MAIN: main
</lang>
{{out}}
<pre>
V{ 1 3435 }
</pre>
| |||