Improved project structure.

This commit is contained in:
2017-06-01 14:50:23 +02:00
parent 5e06b03248
commit 89f0d81598
25 changed files with 2 additions and 0 deletions

12
haskell/e011.hs Normal file
View File

@@ -0,0 +1,12 @@
-- 11 - biggest multiple in 2d field
parseSquare :: String -> [[Integer]]
parseSquare = map (\line -> map read $ words line) . lines
columns :: [[a]] -> [[a]]
columns [[]] = []
columns xs = map
main :: IO ()
main = do
fileString <- readFile "problem_11.txt"
putStrLn . show $ parseSquare fileString