gistfile1.hs

import Data.List.Split

euler :: [[Int]] -> Int
euler a = head (head (collapse a))

collapse :: [[Int]] -> [[Int]]
collapse a = if length a > 1 then 
        collapse ((init (init a)) ++ [euler18max (last a) (last (init a))]) else a

--We ALWAYS want b to be one larger than a
----Always.
euler18max :: [Int] -> [Int] -> [Int]
euler18max a b = zipWith max (zipWith (+) b (init a) ) (zipWith (+) b (tail a) )

rd :: [String] -> [Int]
rd = map read

main :: IO ()
main = do 
  contents <- readFile "C:/haskell/project67/triangle.txt"
  let f = map (splitOn " ") (splitOn "\n" contents)
  --print f
  print (euler (map (rd) f))