toastyandwarm/advent-of-code-2024
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

updated day 4

Browse source
This commit is contained in:
toastyandwarm 2024-12-05 15:10:43 +00:00
parent 4192baf89c
commit 3262389afe
1 changed files with 0 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
5/solution.hs
View file

@ -30,9 +30,6 @@ split delims (x:xs)
toTuple :: [a] -> (a, a) toTuple :: [a] -> (a, a)
toTuple (x:(y:ys)) = (x, y) toTuple (x:(y:ys)) = (x, y)
fromTuple :: (a, a) -> [a]
fromTuple (x, y) = [x, y]
splitInput :: String -> [(Integer, Integer)] splitInput :: String -> [(Integer, Integer)]
splitInput text = map (\x -> toTuple $ map read x) $ map (filter (/="")) $ map (split ['|']) $ split ['\n'] text splitInput text = map (\x -> toTuple $ map read x) $ map (filter (/="")) $ map (split ['|']) $ split ['\n'] text