Munchausen numbers: Difference between revisions

m
→‎{{header|langur}}: change where() to filter()
m (syntax highlighting fixup automation)
m (→‎{{header|langur}}: change where() to filter())
Line 1,654:
=={{header|langur}}==
{{trans|C#}}
{{works with|langur|0.6.611}}
<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: ", wherefilter f(.n) .n == .spod(.n), series 0..5000</syntaxhighlight>
 
{{works with|langur|0.8.10}}
<syntaxhighlight lang="langur"># sum power of digits
val .spod = f(.n) fold f{+}, map(f .x^.x, s2n toString .n)
 
# Munchausen
writeln "Answers: ", wherefilter f(.n) .n == .spod(.n), series 0..5000</syntaxhighlight>
 
{{out}}
885

edits