20問目
http://projecteuler.net/index.php?section=problems&id=20
100の階乗の、各桁の数字を足し合わせる。
import Data.Char main = print $ euler020 100 euler020 :: Integer -> Int euler020 n = sum $ map digitToInt $ show $ fact n fact :: Integer -> Integer fact n = product [1..n]