Add Day 5, Puzzle 1 solution

src/Main.hs

@@ -4,6 +4,7 @@ import Day01 (day01_1, day01_2)
 import Day02 (day02_1, day02_2)
 import Day03 (day03_1, day03_2)
 import Day04 (day04_1, day04_2)
+import Day05 (day05_1)
 import System.Environment (getArgs)
 
 main :: IO ()
@@ -30,6 +31,9 @@ main = do
     "4" : _ -> do
       day04_1
       day04_2
+    "5" : "1" : _ -> day05_1
+    "5" : _ -> do
+      day05_1
     "all" : _ -> do
       day01_1
       day01_2
@@ -39,4 +43,5 @@ main = do
       day03_2
       day04_1
       day04_2
+      day05_1
     _ -> error "Not implemented"