diff options
Diffstat (limited to '2/2.hs')
| -rw-r--r-- | 2/2.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/2/2.hs b/2/2.hs index ba01542..55619a2 100644 --- a/2/2.hs +++ b/2/2.hs @@ -20,11 +20,11 @@ color = red <|> green <|> blue handful = liftM2 (flip (,)) (space *> (read <$> many1 digit)) (space *> color) set = M.fromList <$> (sepBy handful $ string ",") -game = liftM2 (,) (string "Game " *> (read <$> many1 digit)) (string ":" *> sepBy set (string ";")) +game = (,) <$> (string "Game " *> (read <$> many1 digit)) <*> (string ":" *> sepBy set (string ";")) games = sepBy game newline solution :: Game -> Int solution = product . M.elems . M.unionsWith max . snd -main = liftM2 (>>=) readFile (((print . sum . map solution . either (error.show) id) .) . parse games) =<< head <$> getArgs \ No newline at end of file +main = (>>=) <$> readFile <*> ((print . sum . map solution . either (error.show) id) .) . parse games =<< head <$> getArgs \ No newline at end of file |