AdventOfCode2022/AdventOfCode2022.App/Program.fs

namespace AdventOfCode2022.App

open System.Diagnostics
open System.IO
open System.Reflection
open AdventOfCode2022

module Program =
    type Dummy =
        class
        end

    let readResource (name : string) : string =
        let asm = Assembly.GetAssembly typeof<Dummy>

        use stream = asm.GetManifestResourceStream $"AdventOfCode2022.App.%s{name}"

        use reader = new StreamReader (stream)
        reader.ReadToEnd ()

    [<EntryPoint>]
    let main _ =
        let days = Array.init 9 (fun day -> readResource $"Day%i{day + 1}.txt")

        let inline day (i : int) = days.[i - 1]

        let time = Stopwatch.StartNew ()
        time.Restart ()

        do
            let lines = StringSplitEnumerator.make '\n' (day 1)
            printfn "%i" (Day1.part1 lines)
            printfn "%i" (Day1.part2 lines)

        do
            let lines = StringSplitEnumerator.make '\n' (day 2)
            printfn "%i" (Day2.part1 lines)
            printfn "%i" (Day2.part2 lines)

        do
            let day3 = day 3
            let lines = StringSplitEnumerator.make '\n' day3
            printfn "%i" (Day3Efficient.part1 lines)
            printfn "%i" (Day3Efficient.part2 (day3.Split '\n'))

        do
            let lines = StringSplitEnumerator.make '\n' (day 4)
            printfn "%i" (Day4.part1 lines)
            printfn "%i" (Day4.part2 lines)

        do
            let lines = StringSplitEnumerator.make '\n' (day 5)
            printfn "%s" (Day5.part1 lines)
            printfn "%s" (Day5.part2 lines)

        do
            let day6 = day 6
            printfn "%i" (Day6.part1 day6)
            printfn "%i" (Day6.part2 day6)

        do
            let day7 = day(7).Split '\n'
            printfn "%i" (Day7.part1 day7)
            printfn "%i" (Day7.part2 day7)

        do
            let day8 = StringSplitEnumerator.make '\n' (day 8)
            printfn "%i" (Day8.part1 day8)
            printfn "%i" (Day8.part2 day8)

        do
            let day9 = StringSplitEnumerator.make '\n' (day 9)
            printfn "%i" (Day9.part1 day9)
            printfn "%i" (Day9.part2 day9)

        time.Stop ()
        printfn $"Took %i{time.ElapsedMilliseconds}ms"
        0