haskell/p20.hs


1
2
3
4
5
6

import Data.Char (digitToInt)

p20 :: Int
p20 = sum (map digitToInt (show (product [1..100])))

main = putStrLn $ "Solution: " ++ show p20