Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
11 lines (7 sloc) 254 Bytes
import EulerUtil.Io
input :: (Integral a, Read a) => String -> [a]
input = map read . lines
euler13 :: String -> String
euler13 = take 10 . show . sum . input
euler13file :: FilePath -> IO()
euler13file fileName = applyFunctionToFile fileName euler13