I just completed "Historian Hysteria" - Day 1 - Advent of Code 2024 #AdventOfCode adventofcode.com/2024/day/1
5 2 120Samuel
@samuel.fm
haskell spoilers
Adult content
![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")
David Buchananwell that isn't very pythonic
1 9
mary🐇we need dedicated spoiler label so bad i cant believe we're tagging programming as adult content
2 1 22Samuelno child should be exposed to Haskell
1 24
Bohdan Pavuktrue, same can be said about C. trust me, I'm 16 and I know what I'm talking about
1 5
Ricardo J. MéndezIt depends on what your fetish is.
1
neurohaskell is the reason i quit my cs degree at glasgow uni
mussarhaskell looks so cozy