Munchausen numbers: Difference between revisions
m
→{{header|Haskell}}
Line 1,340:
Or, without digitToInt, but importing join, swap and bool.
<lang haskell>import Control.Monad (join)
import Data.List (unfoldr)▼
import Data.Bool (bool)
▲import Data.List (unfoldr)
import Data.Tuple (swap)
isMunchausen :: Integer -> Bool
isMunchausen =
(==)
<*> ( foldr ((+) . join (^)) 0
. unfoldr
( ( flip bool Nothing
. Just
. swap
. flip quotRem 10
)
<*> (0 ==)
)
)
main :: IO ()
| |||