solutions/day1.fs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

namespace Solutions

module Day1 =
    open System.IO

    let lines = File.ReadLines("inputs/day1.txt")
    let totalWeights = seq {
        let mutable subseq = 0

        for line in lines do
        if line.Equals("") then
            yield subseq
            subseq <- 0
        else
            subseq <- subseq + int line
    }

    let part1 () = totalWeights |> Seq.max
    let part2 () = totalWeights |> Seq.sortDescending |> Seq.take 3 |> Seq.sum