This commit is contained in:
Patrick Stevens
2022-12-07 13:12:58 +00:00
committed by GitHub
parent ef903b33a9
commit ed0e191990
7 changed files with 1259 additions and 1 deletions

View File

@@ -20,7 +20,7 @@ module Program =
[<EntryPoint>]
let main _ =
let days = Array.init 6 (fun day -> readResource $"Day%i{day + 1}.txt")
let days = Array.init 7 (fun day -> readResource $"Day%i{day + 1}.txt")
let inline day (i : int) = days.[i - 1]
@@ -58,6 +58,11 @@ module Program =
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)
time.Stop ()
printfn $"Took %i{time.ElapsedMilliseconds}ms"
0