Munchausen numbers: Difference between revisions
Content added Content deleted
Line 1,050:
main = print $ filter isMunchausen [1 .. 5000]</lang>
Or, without digitToInt, but importing join, swap and
<lang haskell>import Control.Monad (join)
import Data.List (unfoldr)
import Data.Bool (bool)
import Data.Tuple (swap)
isMunchausen :: Integer -> Bool
isMunchausen =
(==) <*>
(foldr ((+) . join (^)) 0 .
main :: IO ()
|