Rename days 1-9 with heading zero
This commit is contained in:
94
src/Main.hs
94
src/Main.hs
@@ -1,23 +1,23 @@
|
||||
module Main (main) where
|
||||
|
||||
import Day1.Puzzle1
|
||||
import Day1.Puzzle2
|
||||
import Day2.Puzzle1
|
||||
import Day2.Puzzle2
|
||||
import Day3.Puzzle1
|
||||
import Day3.Puzzle2
|
||||
import Day4.Puzzle1
|
||||
import Day4.Puzzle2
|
||||
import Day5.Puzzle1
|
||||
import Day5.Puzzle2
|
||||
import Day6.Puzzle1
|
||||
import Day6.Puzzle2
|
||||
import Day7.Puzzle1
|
||||
import Day7.Puzzle2
|
||||
import Day8.Puzzle1
|
||||
import Day8.Puzzle2
|
||||
import Day9.Puzzle1
|
||||
import Day9.Puzzle2
|
||||
import Day01.Puzzle1
|
||||
import Day01.Puzzle2
|
||||
import Day02.Puzzle1
|
||||
import Day02.Puzzle2
|
||||
import Day03.Puzzle1
|
||||
import Day03.Puzzle2
|
||||
import Day04.Puzzle1
|
||||
import Day04.Puzzle2
|
||||
import Day05.Puzzle1
|
||||
import Day05.Puzzle2
|
||||
import Day06.Puzzle1
|
||||
import Day06.Puzzle2
|
||||
import Day07.Puzzle1
|
||||
import Day07.Puzzle2
|
||||
import Day08.Puzzle1
|
||||
import Day08.Puzzle2
|
||||
import Day09.Puzzle1
|
||||
import Day09.Puzzle2
|
||||
import Day10.Puzzle1
|
||||
import Day11.Puzzle1
|
||||
import Day11.Puzzle2
|
||||
@@ -30,32 +30,32 @@ import System.Environment (getArgs)
|
||||
|
||||
main :: IO ()
|
||||
main = do
|
||||
args <- getArgs
|
||||
case args of
|
||||
"1":"1":_ -> day1_1
|
||||
"1":"2":_ -> day1_2
|
||||
"2":"1":_ -> day2_1
|
||||
"2":"2":_ -> day2_2
|
||||
"3":"1":_ -> day3_1
|
||||
"3":"2":_ -> day3_2
|
||||
"4":"1":_ -> day4_1
|
||||
"4":"2":_ -> day4_2
|
||||
"5":"1":_ -> day5_1
|
||||
"5":"2":_ -> day5_2
|
||||
"6":"1":_ -> day6_1
|
||||
"6":"2":_ -> day6_2
|
||||
"7":"1":_ -> day7_1
|
||||
"7":"2":_ -> day7_2
|
||||
"8":"1":_ -> day8_1
|
||||
"8":"2":_ -> day8_2
|
||||
"9":"1":_ -> day9_1
|
||||
"9":"2":_ -> day9_2
|
||||
"10":"1":_ -> day10_1
|
||||
"11":"1":_ -> day11_1
|
||||
"11":"2":_ -> day11_2
|
||||
"12":"1":_ -> day12_1
|
||||
"13":"1":_ -> day13_1
|
||||
"13":"2":_ -> day13_2
|
||||
"14":"1":_ -> day14_1
|
||||
"15":"1":_ -> day15_1
|
||||
_ -> error "Not implemented"
|
||||
args <- getArgs
|
||||
case args of
|
||||
"1" : "1" : _ -> day01_1
|
||||
"1" : "2" : _ -> day01_2
|
||||
"2" : "1" : _ -> day02_1
|
||||
"2" : "2" : _ -> day02_2
|
||||
"3" : "1" : _ -> day03_1
|
||||
"3" : "2" : _ -> day03_2
|
||||
"4" : "1" : _ -> day04_1
|
||||
"4" : "2" : _ -> day04_2
|
||||
"5" : "1" : _ -> day05_1
|
||||
"5" : "2" : _ -> day05_2
|
||||
"6" : "1" : _ -> day06_1
|
||||
"6" : "2" : _ -> day06_2
|
||||
"7" : "1" : _ -> day07_1
|
||||
"7" : "2" : _ -> day07_2
|
||||
"8" : "1" : _ -> day08_1
|
||||
"8" : "2" : _ -> day08_2
|
||||
"9" : "1" : _ -> day09_1
|
||||
"9" : "2" : _ -> day09_2
|
||||
"10" : "1" : _ -> day10_1
|
||||
"11" : "1" : _ -> day11_1
|
||||
"11" : "2" : _ -> day11_2
|
||||
"12" : "1" : _ -> day12_1
|
||||
"13" : "1" : _ -> day13_1
|
||||
"13" : "2" : _ -> day13_2
|
||||
"14" : "1" : _ -> day14_1
|
||||
"15" : "1" : _ -> day15_1
|
||||
_ -> error "Not implemented"
|
||||
|
||||
Reference in New Issue
Block a user