https://www.colorless-sight.jp:443/wiki/?ProjectEular%2FProblem20
[[ProjectEular]] -- Problem 20 module Main (main) where import qualified Char (digitToInt) main :: IO () main = print $ problem20 problem20 :: Int problem20 = sum $ map Char.digitToInt $ show $ product [1..100]