module _18

open System.IO

let getTriangleMaxTotal =

    let t = 
        File.ReadAllLines(@"18_67.txt") 
        |> Array.map (fun line -> line.Split(' ') |> Array.map int)
        |> Array.rev

    for i in 1 .. t.Length - 1 do
        for j in 0 .. t.[i].Length - 1 do
            let current = t.[i].[j]
            let prev = max t.[i - 1].[j] t.[i - 1].[j + 1]
            t.[i].[j] <- current + prev
        
    t.[t.Length - 1].[0]