From 3262389afec12cf3d1eb1c958ee4b73dde507e10 Mon Sep 17 00:00:00 2001 From: toastyandwarm Date: Thu, 5 Dec 2024 15:10:43 +0000 Subject: [PATCH] updated day 4 --- 5/solution.hs | 3 --- 1 file changed, 3 deletions(-) diff --git a/5/solution.hs b/5/solution.hs index 461dd51..7a514c0 100644 --- a/5/solution.hs +++ b/5/solution.hs @@ -30,9 +30,6 @@ split delims (x:xs) toTuple :: [a] -> (a, a) toTuple (x:(y:ys)) = (x, y) -fromTuple :: (a, a) -> [a] -fromTuple (x, y) = [x, y] - splitInput :: String -> [(Integer, Integer)] splitInput text = map (\x -> toTuple $ map read x) $ map (filter (/="")) $ map (split ['|']) $ split ['\n'] text