initial commit

18.fs

@@ -0,0 +1,18 @@
+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]