Munchausen numbers: Difference between revisions

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

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