Improved project structure.
This commit is contained in:
12
haskell/e011.hs
Normal file
12
haskell/e011.hs
Normal 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
|
||||
Reference in New Issue
Block a user