Munchausen numbers: Difference between revisions

</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 }