[adventofcode2018.git] / day04 / guards.hs

import qualified Data.Map.Strict as M
import Text.ParserCombinators.ReadP 
import Control.Applicative ((<|>))

main :: IO ()
main = do
    shifts <- map parse . lines <$> getContents
    print "a"

type GID = Int

data Status = Begin | Awake | Asleep deriving (Show)   
data Date = Date Int Int Int deriving (Show)
data Time = Time Int Int deriving (Show)

data Shift = Shift Status GID Date Time deriving (Show)

parse :: String -> Shift
parse = fst . head . readP_to_S go
    where digit :: ReadP Char
          digit = satisfy (\char -> char >= '0' && char <= '9')
          stGet :: String -> Status
          stGet "wakes up" = Awake
          stGet "falls asleep" = Asleep
          stGet "Guard #" = Begin
          go :: ReadP Shift
          go = do
            char '['
            year <- read <$> count 4 digit
            char '-'
            month <- read <$> count 2 digit
            char '-'
            day <- read <$> count 2 digit
            char ' '
            hour <- read <$> count 2 digit
            char ':'
            minute <- read <$> count 2 digit
            string "] "
            rt <- string "Guard #" <|> string "wakes up" <|> string "falls asleep"
            gid <- option (-1) (read <$> many1 digit)
            optional $ string " begins shift"
            eof
            let d = Date year month day
            let t = Time hour minute
            return (Shift (stGet rt) gid d t)
Commit	Line	Data
	1	import qualified Data.Map.Strict as M
	2	import Text.ParserCombinators.ReadP
	3	import Control.Applicative ((<\|>))
	4
	5	main :: IO ()
	6	main = do
	7	shifts <- map parse . lines <$> getContents
	8	print "a"
	9
	10	type GID = Int
	11
	12	data Status = Begin \| Awake \| Asleep deriving (Show)
	13	data Date = Date Int Int Int deriving (Show)
	14	data Time = Time Int Int deriving (Show)
	15
	16	data Shift = Shift Status GID Date Time deriving (Show)
	17
	18	parse :: String -> Shift
	19	parse = fst . head . readP_to_S go
	20	where digit :: ReadP Char
	21	digit = satisfy (\char -> char >= '0' && char <= '9')
	22	stGet :: String -> Status
	23	stGet "wakes up" = Awake
	24	stGet "falls asleep" = Asleep
	25	stGet "Guard #" = Begin
	26	go :: ReadP Shift
	27	go = do
	28	char '['
	29	year <- read <$> count 4 digit
	30	char '-'
	31	month <- read <$> count 2 digit
	32	char '-'
	33	day <- read <$> count 2 digit
	34	char ' '
	35	hour <- read <$> count 2 digit
	36	char ':'
	37	minute <- read <$> count 2 digit
	38	string "] "
	39	rt <- string "Guard #" <\|> string "wakes up" <\|> string "falls asleep"
	40	gid <- option (-1) (read <$> many1 digit)
	41	optional $ string " begins shift"
	42	eof
	43	let d = Date year month day
	44	let t = Time hour minute
	45	return (Shift (stGet rt) gid d t)