Program.fs

open System.Threading.Tasks
open aoc22

let skip = (fun () -> "skipped")

let days =
    [ Day01.run
      Day02.run
      Day03.run
      Day04.run
      Day05.run
      Day06.run
      Day07.run
      Day08.run
      Day09.run
      Day10.run
      Day11.run
      Day12.run
      skip
      skip
      skip
      skip
      skip
      Day18.run 
      Day19.run 
      Day20.run ]

let tasks =
    days
    |> List.indexed
    |> List.rev
    |> List.map (fun (i, r) ->
        task {
            let! result = Task.Run r
            return (i, result)
        })

task {
    for task in tasks do
        let! i, result = task
        printfn $"Day {i + 1} {result}"
}
|> Task.WaitAll