pingu/aoc
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

A bit more clean

Browse Source
This commit is contained in:
pingu 2024-12-01 15:58:01 +01:00
parent 0eecc96a38
commit 9c415c44cc
1 changed files with 2 additions and 3 deletions

5
app/1.hs
View File

@ -15,15 +15,14 @@ parse = unzip .
[a,b] -> (read a, read b) [a,b] -> (read a, read b)
e -> error $ "Parsing failed on: " ++ show e e -> error $ "Parsing failed on: " ++ show e
) <$>) . ) <$>) .
(filter (/= mempty) <$>) . (filter (/= mempty) . splitWhen isSpace <$>) .
(splitWhen isSpace <$>) .
lines lines
solve1 :: ([Int], [Int]) -> Int solve1 :: ([Int], [Int]) -> Int
solve1 = sum . uncurry (zipWith ((abs .) . (-)) `on` sort) solve1 = sum . uncurry (zipWith ((abs .) . (-)) `on` sort)
solve2 :: ([Int], [Int]) -> Int solve2 :: ([Int], [Int]) -> Int
solve2 (as,bs) = foldr (\a b -> b + a * length (filter (==a) bs)) 0 as solve2 (as,bs) = foldr (\a -> (a * length (filter (==a) bs) +)) 0 as
main :: IO () main :: IO ()
main = readFile "inputs/1" <&> parse >>= \i -> main = readFile "inputs/1" <&> parse >>= \i ->