Munchausen numbers: Difference between revisions

Content added Content deleted
(Added a solution for Factor)
(jq)
Line 887: Line 887:
{{Out}}
{{Out}}
<lang JavaScript>[1, 3435]</lang>
<lang JavaScript>[1, 3435]</lang>

=={{header|jq}}==
{{works with|jq|1.5}}
<lang jq>def sigma( stream ): reduce stream as $x (0; . + $x ) ;

def ismunchausen:
def digits: tostring | split("")[] | tonumber;
. == sigma(digits | pow(.;.));

# Munchausen numbers from 1 to 5000 inclusive:
range(1;5001) | select(ismunchausen)</lang>
{{out}}
<lang jq>1
3435</lang>


=={{header|Julia}}==
=={{header|Julia}}==