Munchausen numbers: Difference between revisions

m
m (→‎{{header|Haskell}}: (pruned out one import))
Line 1,002:
 
isMunchausen :: Int -> Bool
isMunchausen = let(==) go<*> =foldr ((+) . (id >>=) (^) . digitToInt) 0 . show
isMunchausen =
let go = (+) . (id >>=) (^) . digitToInt
in (==) <*> foldr go 0 . show
 
main :: IO ()
9,659

edits