From 9bb30739a2ad1b19716f98d99096910208e3fbaa Mon Sep 17 00:00:00 2001 From: pingu Date: Tue, 3 Dec 2024 12:52:47 +0100 Subject: [PATCH] Oop --- app/3.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/app/3.hs b/app/3.hs index db44e98..eae256a 100644 --- 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:]]+\\)")