Samuel1 Dec 2024I just completed "Historian Hysteria" - Day 1 - Advent of Code 2024 #AdventOfCode adventofcode.com/2024/day/1 5 2 120
![import Data.List
main :: IO ()
main = do
input <- readFile "input.txt"
let (left, right) = listPairsToPairList $ map words (lines input)
print $ sum $ distPairs (sort left, sort right)
listPairsToPairList :: [[String]] -> ([Int], [Int])
listPairsToPairList xs = (map (read . head) xs, map (read . last) xs)
distPairs :: ([Int], [Int]) -> [Int]
distPairs ([], []) = []
distPairs (x:xs, y:ys) = abs (x - y) : distPairs (xs, ys)](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:p2cp5gopk7mgjegy6wadk3ep/bafkreican2zp37lmpdlynlfch6hjozl24u6kqzqhwyqwvbwonziqb5j22q "import Data.List
main :: IO ()
main = do
input <- readFile \"input.txt\"
let (left, right) = listPairsToPairList $ map words (lines input)
print $ sum $ distPairs (sort left, sort right)
listPairsToPairList :: [[String]] -> ([Int], [Int])
listPairsToPairList xs = (map (read . head) xs, map (read . last) xs)
distPairs :: ([Int], [Int]) -> [Int]
distPairs ([], []) = []
distPairs (x:xs, y:ys) = abs (x - y) : distPairs (xs, ys)")
![main :: IO ()
main = do
input <- readFile "input.txt"
let (left, right) = listPairsToPairList $ map words (lines input)
print $ sumSimScore left right
listPairsToPairList :: [[String]] -> ([Int], [Int])
listPairsToPairList [] = ([], [])
listPairsToPairList xs = (map (read . head) xs, map (read . last) xs)
simScore :: Int -> [Int] -> Int
simScore _ [] = 0
simScore x (y:ys)
| x == y = x + simScore x ys
| otherwise = simScore x ys
sumSimScore :: [Int] -> [Int] -> Int
sumSimScore [] _ = 0
sumSimScore (x:xs) ys = simScore x ys + sumSimScore xs ys](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:p2cp5gopk7mgjegy6wadk3ep/bafkreicyybjvfxsl6dcxaomytbckl6bd5qsluqdbxvw5i4qxo66goln6xa "main :: IO ()
main = do
input <- readFile \"input.txt\"
let (left, right) = listPairsToPairList $ map words (lines input)
print $ sumSimScore left right
listPairsToPairList :: [[String]] -> ([Int], [Int])
listPairsToPairList [] = ([], [])
listPairsToPairList xs = (map (read . head) xs, map (read . last) xs)
simScore :: Int -> [Int] -> Int
simScore _ [] = 0
simScore x (y:ys)
| x == y = x + simScore x ys
| otherwise = simScore x ys
sumSimScore :: [Int] -> [Int] -> Int
sumSimScore [] _ = 0
sumSimScore (x:xs) ys = simScore x ys + sumSimScore xs ys")