Munchausen numbers: Difference between revisions
m
→{{header|Haskell}}
No edit summary |
|||
Line 1,327:
isMunchausen :: Int -> Bool
isMunchausen =
isMunchausen = (==) <*> foldr ((+) . (id >>=) (^) . digitToInt) 0 . show▼
(==)
main :: IO ()
| |||