34.hs

import Data.List

numbers = [3..10^6] -- arbitrary guess

convRadix :: (Integral b) => b -> b -> [b]
convRadix n =
   unfoldr (\b -> if b == 0 then Nothing else Just (b `mod` n, b `div` n))

fact n = facti n 1
  where facti 0 a = a
        facti n a = facti (n-1) a*n

check ns = filter predicate ns
  where sumfact n = sum $ map fact (convRadix 10 n)
        predicate n = n == sumfact n

main =
    do putStrLn $ show $ sum (check numbers)