Advent of Code 2022 Day 1

day01.fsx

open System.IO

let readLines (filePath:string) = 
    use sr = new StreamReader (filePath)
    sr.ReadToEnd().Split([|"\n\n"|],System.StringSplitOptions.TrimEntries)
        |> Seq.map (fun x -> x.Split [|'\n'|])
        |> Seq.map (Seq.map (int))
        |> Seq.map Seq.sum
        |> Seq.sortDescending

let results = "data/day1.txt" |> readLines |> List.ofSeq
results.[0..2] |> List.sum