Advent of Code 2023 has confirmed my longstanding suspicion that I’m a Haskelloid at heart
Samuel@samuel.fm· 4 Dec 2023writing C is like trying to instruct the world’s most pedantic toddler how to make a crayon drawing, and if you don’t keep a close eye on them they’ll keep drawing off the page and onto the sofa and the walls
![getSumOfValidNumbers :: [Number] -> [String] -> Int
getSumOfValidNumbers [] _ = 0
getSumOfValidNumbers (x : xs) rows =
(if all (== True) (map (isValidNumber x) rows) then let Number {value} = x in value else 0)
+ getSumOfValidNumbers xs rows](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:p2cp5gopk7mgjegy6wadk3ep/bafkreich3ewc5q547pdqmglf6bwyqtw2rkq5jzlzbobnef7l6sbynbr6ra "getSumOfValidNumbers :: [Number] -> [String] -> Int
getSumOfValidNumbers [] _ = 0
getSumOfValidNumbers (x : xs) rows =
(if all (== True) (map (isValidNumber x) rows) then let Number {value} = x in value else 0)
+ getSumOfValidNumbers xs rows")
![getSumOfValidNumbers :: [Number] -> [String] -> Int
getSumOfValidNumbers [] _ = 0
getSumOfValidNumbers (x : xs) rows =
(if all (isValidNumber x) rows then let Number {value} = x in value else 0)
+ getSumOfValidNumbers xs rows](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:p2cp5gopk7mgjegy6wadk3ep/bafkreierdnibps2pa3d4m6ilczdeqcwovh6knnx2l3yo2teir6ueyehqie "getSumOfValidNumbers :: [Number] -> [String] -> Int
getSumOfValidNumbers [] _ = 0
getSumOfValidNumbers (x : xs) rows =
(if all (isValidNumber x) rows then let Number {value} = x in value else 0)
+ getSumOfValidNumbers xs rows")
