Munchausen numbers: Difference between revisions
m
→{{header|Haskell}}: (reformatting)
(→{{header|Haskell}}: Or, reworking to one fold and a show) |
m (→{{header|Haskell}}: (reformatting)) |
||
Line 441:
isMunchausen :: Int -> Bool
isMunchausen n =
foldl
(\n c ->
in n + v ^ v)
0
(show n)
main :: IO ()
| |||