{-# LANGUAGE OverloadedStrings #-}

import AoC.Day1 as Day1
import AoC.Day2 as Day2
import AoC.Day3 as Day3

import qualified Data.Text.IO as T (readFile)

main :: IO ()
main = do
  putStrLn "Hello World!"
  input1 <- readFile "./input/day1.txt"
  putStrLn $ show $ Day1.solveA input1
  putStrLn $ show $ Day1.solveB input1

  input2 <- T.readFile "./input/day2.txt"
  putStrLn $ show $ Day2.solveA "A Y\nB X\nC Z"
  putStrLn $ show $ Day2.solveA input2
  putStrLn $ show $ Day2.solveB "A Y\nB X\nC Z"
  putStrLn $ show $ Day2.solveB input2

  input3 <- T.readFile "./input/day3.txt"
  let demoInput3 = "vJrwpWtwJgWrhcsFMMfFFhFp\njqHRNqRjqzjGDLGLrsFMfFZSrLrFZsSL\nPmmdzqPrVvPwwTWBwg\nwMqvLMZHhHMvwLHjbvcjnnSBnvTQFn\nttgJtRGJQctTZtZT\nCrZsJsPPZsGzwwsLwLmpwMDw"
  putStrLn $ show $ Day3.solveA demoInput3
  putStrLn $ show $ Day3.solveA input3
  putStrLn $ show $ Day3.solveB demoInput3
  putStrLn $ show $ Day3.solveB input3