-
Notifications
You must be signed in to change notification settings - Fork 0
/
Program.fs
61 lines (58 loc) · 1.37 KB
/
Program.fs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
module AoC2021.Main
open AoC2021.Utils
open AoC2021.Day1
open AoC2021.Day2
open AoC2021.Day3
open AoC2021.Day4
open AoC2021.Day5
open AoC2021.Day6
open AoC2021.Day7
open AoC2021.Day8
open AoC2021.Day9
open AoC2021.Day10
open AoC2021.Day11
open AoC2021.Day12
open AoC2021.Day13
open AoC2021.Day14
open AoC2021.Day15
open AoC2021.Day16
open AoC2021.Day17
open AoC2021.Day18
open AoC2021.Day20
open AoC2021.Day21
open AoC2021.Day22
open AoC2021.Day24
open AoC2021.Day25
[<EntryPoint>]
let main argv =
let day = argv |> getProblem
match day with
| "1" -> day1 "1" ()
| "1b" -> day1part2 "1" ()
| "2" -> day2 "2" ()
| "2b" -> day2part2 "2" ()
| "3" -> day3 "3" ()
| "3b" -> day3part2 "3" ()
| "4" -> day4 "4" ()
| "4b" -> day4part2 "4" ()
| "5" -> day5 "5" ()
| "6" -> day6 "6" 80 ()
| "6b" -> day6 "6" 256 ()
| "7" -> day7 "7" ()
| "7b" -> day7 "7" ()
| "8" -> day8 "8" ()
| "8b" -> day8part2 "8" ()
| "9" -> day9 "9" ()
| "9b" -> day9part2 "9" ()
| "10" -> day10 "10" ()
| "10b" -> day10part2 "10" ()
| "11" -> day11 "11" 100 ()
| "11b" -> day11part2 "11" ()
| "12" -> day12 "12" ()
| "13" -> day13 "13" ()
| "17" -> day17 201 230 -99 -65 ()
| "17b" -> day17part2 201 230 -99 -65 ()
// | "test" -> day18 "[[[[[9,8],1],2],3],4]" ()
| "test" -> day25 "25" ()
|> printfn "%d"
0