From 1fd224e40011ee0a63aa7955fe79b616a4dfa6dd Mon Sep 17 00:00:00 2001 From: tzlil Date: Sat, 2 Dec 2023 21:27:17 +0200 Subject: can get rid of some parens --- 2/2.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to '2/2.hs') 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 -- cgit 1.4.1