{-# LANGUAGE OverloadedStrings #-}
import Data.List
--- import Data.Tuple (swap)
import Data.Text (Text)
import qualified Data.Text.IO as TIO
import qualified Control.Applicative as CA
import Data.Time
--- import Data.Time.LocalTime
import qualified Data.Set as S
import qualified Data.Map.Strict as M
type GuardSleepFrequency = M.Map (GuardId, Int) Int -- key = (guardID, minute), value = times spent asleep
-
main :: IO ()
main = do
text <- TIO.readFile "data/advent04.txt"