Oop

2024-12-03 12:52:47 +01:00 · 2024-12-03 12:52:47 +01:00 · 9bb30739a2
commit 9bb30739a2
parent e533ce8c6e
1 changed files with 3 additions and 3 deletions
--- a/app/3.hs
+++ b/app/3.hs
@ -6,9 +6,9 @@ import Data.List.Split

 e :: [String] ->  [(Int,Int)]
 e = ((\case
-             [a,b] -> (read a, read b)
-             err -> error $ "Parsing failed on: " ++ show err
-         ) . splitWhen (== ',') . init . drop 4 <$>)
+        [a,b] -> (read a, read b)
+        err -> error $ "Parsing failed on: " ++ show err
+        ) . splitWhen (== ',') . init . drop 4 <$>)

 parse1 :: String -> [(Int,Int)]
 parse1 =  e . getAllTextMatches . (=~ "mul\\([[:digit:]]+,[[:digit:]]+\\)")