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

updated code

Browse source
This commit is contained in:
toastyandwarm 2024-12-01 14:46:49 +00:00
parent b6c05342d3
commit 21e7c62692
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
1/solution.hs
View file

@ -11,17 +11,17 @@ split delims (x:xs)
| otherwise = addFirst (split delims xs) x | otherwise = addFirst (split delims xs) x
to_tuple :: [a] -> (a, a) toTuple :: [a] -> (a, a)
to_tuple (x:(y:ys)) = (x, y) toTuple (x:(y:ys)) = (x, y)
from_tuple :: (a, a) -> [a] fromTuple :: (a, a) -> [a]
from_tuple (x, y) = [x, y] fromTuple (x, y) = [x, y]
splitInput :: String -> [(Integer, Integer)] splitInput :: String -> [(Integer, Integer)]
splitInput text = map (\x -> to_tuple $ map read x) $ map (filter (/="")) $ map (split [' ']) $ split ['\n'] text splitInput text = map (\x -> to_tuple $ map read x) $ map (filter (/="")) $ map (split [' ']) $ split ['\n'] text
solve1 :: [(Integer, Integer)] -> Integer solve1 :: [(Integer, Integer)] -> Integer
solve1 x = sum $ map (\(x, y) -> abs (x - y)) $ uncurry zip $ to_tuple $ map sort $ from_tuple $ unzip x solve1 x = sum $ map (\(x, y) -> abs (x - y)) $ uncurry zip $ toTuple $ map sort $ fromTuple $ unzip x
solve2 :: [(Integer, Integer)] -> Integer solve2 :: [(Integer, Integer)] -> Integer
solve2 x = sum $ (\(x, y) -> map (\z -> z * (count z y)) x) $ unzip x solve2 x = sum $ (\(x, y) -> map (\z -> z * (count z y)) x) $ unzip x