Munchausen numbers: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
Langurmonkey (talk | contribs) m (→{{header|langur}}: change where() to filter()) |
||
Line 1,654: | Line 1,654: | ||
=={{header|langur}}== |
=={{header|langur}}== |
||
{{trans|C#}} |
{{trans|C#}} |
||
{{works with|langur|0. |
{{works with|langur|0.11}} |
||
<syntaxhighlight lang="langur"># sum power of digits |
<syntaxhighlight lang="langur"># sum power of digits |
||
val .spod = f(.n) fold f{+}, map(f (.x-'0') ^ (.x-'0'), s2cp toString .n) |
val .spod = f(.n) fold f{+}, map(f (.x-'0') ^ (.x-'0'), s2cp toString .n) |
||
# Munchausen |
# Munchausen |
||
writeln "Answers: ", |
writeln "Answers: ", filter f(.n) .n == .spod(.n), series 0..5000</syntaxhighlight> |
||
{{works with|langur|0.8.10}} |
|||
<syntaxhighlight lang="langur"># sum power of digits |
<syntaxhighlight lang="langur"># sum power of digits |
||
val .spod = f(.n) fold f{+}, map(f .x^.x, s2n toString .n) |
val .spod = f(.n) fold f{+}, map(f .x^.x, s2n toString .n) |
||
# Munchausen |
# Munchausen |
||
writeln "Answers: ", |
writeln "Answers: ", filter f(.n) .n == .spod(.n), series 0..5000</syntaxhighlight> |
||
{{out}} |
{{out}} |