Munchausen numbers: Difference between revisions
m
→{{header|Haskell}}
Line 1,310:
=={{header|Haskell}}==
<lang haskell>import
import Data.List (unfoldr)
isMunchausen :: Integer -> Bool
isMunchausen =
(==)
digit 0 = Nothing▼
digit n = Just (r, q) where (q, r) = n `divMod` 10
main :: IO ()
main = print $ filter isMunchausen [1 .. 5000]</lang>
{{out}}
<pre>[1,3435]</pre>
| |||