1fs

Author: gogsbread

f#/1.fsx

@@ -0,0 +1,25 @@
+#load "Common.fsx"
+
+open Common
+open System
+
+module p1 =
+    let solve (input: List<string>) =
+        input
+        |> Seq.map (fun s ->
+            if ((String.IsNullOrWhiteSpace >> not) s) then
+                Some(int64 s)
+            else
+                None)
+        |> Seq.fold
+            (fun acc cal ->
+                let (c, s) = acc
+
+                match cal with
+                | Some v -> (c + v, max (c + v) s)
+                | None -> (0L, s))
+            (0, 0)
+        |> snd
+
+let input = Common.readIn
+input |> p1.solve |> Common.writeOut

f#/Common.fsx

@@ -0,0 +1,10 @@
+module Common
+
+open System
+
+let readIn =
+    Seq.initInfinite (fun _ -> Console.ReadLine())
+    |> Seq.takeWhile (fun line -> (not (isNull line)))
+    |> Seq.toList
+
+let writeOut output = printfn "%A" output