19 lines
447 B
FSharp
19 lines
447 B
FSharp
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]
|