Munchausen numbers: Difference between revisions

m (→‎Alternative: minor optimisation on range of tot, now 3*faster)
Line 1,706:
=={{header|langur}}==
{{trans|C#}}
{{works with|langur|0.11}}
<syntaxhighlight lang="langur"># sum power of digits
val .spod = f(.n) fold f{+}, map(f (.x-'0') ^ (.x-'0'), s2cp toString .n)
 
# Munchausen
writeln "Answers: ", filter f(.n) .n == .spod(.n), series 0..5000</syntaxhighlight>
 
<syntaxhighlight lang="langur"># sum power of digits
val .spod = f(.n) fold f{+}, map(f .x^.x, s2n toString .n)
1,002

edits