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