Munchausen numbers: Difference between revisions

<syntaxhighlight lang="langur"># sum power of digits

val .spod = fn .n: fold (fn{+}, map(fn .x: .x^.x, s2nn -> string .n-> s2n))

writeln "Answers: ", filter (fn .n: .n == .spod(.n), series (0..5000))