Munchausen numbers: Difference between revisions
Content added Content deleted
Langurmonkey (talk | contribs) |
Langurmonkey (talk | contribs) |
||
| Line 1,763: | Line 1,763: | ||
{{trans|C#}} |
{{trans|C#}} |
||
<syntaxhighlight lang="langur"># sum power of digits |
<syntaxhighlight lang="langur"># sum power of digits |
||
val .spod = fn(.n) fold fn{+}, map(fn(.x) .x^.x, s2n string .n) |
val .spod = fn(.n) { fold fn{+}, map(fn(.x) { .x^.x }, s2n string .n) } |
||
# Munchausen |
# Munchausen |
||
writeln "Answers: ", filter fn(.n) .n == .spod(.n), series 0..5000 |
writeln "Answers: ", filter fn(.n) { .n == .spod(.n) }, series 0..5000 |
||
</syntaxhighlight> |
</syntaxhighlight> |
||