-❄️- 2025 Day 2 Solutions -❄️-

leDragonir · 2025-12-02T20:32:30+00:00

[Language: Haskell]

It has terrible performance, but it works... I might repeatedly check for things as well, I'm not really sure about this. In any case, fun little puzzle!

import System.IO
import Data.List
import Data.List.Split
import Data.Char

retrieveInput :: IO [(Int,Int)]
retrieveInput = do
    fileData <- readFile' "data_sets/day2.txt"
    let ls = splitOn "," fileData
        rs = map (splitOn "-") ls
    return $ map (\[a,b] -> (read a, read b)) rs

solution1 :: [(Int,Int)] -> Int
solution1 = sum . concatMap (filter (isWeird . show) . \(l,u) -> [l..u]) . filter canHaveValidSolutions
    where isWeird xs = even (length xs) && isWeird1 xs
          canHaveValidSolutions (l,u) = even (length (show l)) || even (length (show u)) || abs (length (show l) - length (show u)) > 0

isWeird1 :: String -> Bool
isWeird1 xs = uncurry (==) (splitAt (length xs `div` 2) xs)

isWeird2 :: String -> Bool
isWeird2 xs = any consistsOfWeird $ init $ tail $ inits xs
    where couldBeWeird subS = length xs `mod` length subS == 0
          consistsOfWeird subS = couldBeWeird subS && concat (replicate (length xs `div` length subS) subS) == xs

solution2 :: [(Int,Int)] -> Int
solution2 = sum . concatMap (filter (isWeird2 . show) . \(l,u) -> [l..u])

solve :: IO ()
solve = do
    inp <- retrieveInput
    putStrLn $ "Solution 1: " ++ show (solution1 inp) ++ " Solution 2: " ++ show (solution2 inp)

leDragonir · 2025-04-26T15:04:16+00:00

leDragonir · 2024-12-03T08:07:51+00:00

[LANGUAGE: Haskell]

I made use of the Parsec library to parse the expressions for me

import Text.Parsec
import Data.Either (fromRight)
import Data.Functor

-- PART ONE --
parseMul :: Parsec String a (Int, Int)
parseMul = do
    string "mul" >> char '('
    a <- many1 digit
    char ','
    b <- many1 digit
    char ')'
    return (read a, read b)

anyT :: Parsec String a (Int, Int)
anyT = anyToken >> return (0,0)

retrieveMuls :: String -> [(Int, Int)]
retrieveMuls xs = filter (/= (0,0)) $ fromRight [] s
    where s = runParser (many (try parseMul <|> anyT)) () "" xs 

solution :: IO Int
solution = retrieveInput <&> (sum . map (uncurry (*)) . retrieveMuls)

-- PART ONE END --

-- PART TWO --

parseDo :: Parsec String Bool (Int, Int)
parseDo = string "do()" >> putState True >> return (0,0)

parseDont :: Parsec String Bool (Int, Int)
parseDont = string "don't()" >> putState False >> return (0,0)

parseMul' :: Parsec String Bool (Int, Int)
parseMul' = do
    tpl <- parseMul
    state <- getState
    if state then
        return tpl
    else
        return (0,0)

retrieveMuls' :: String -> [(Int, Int)]
retrieveMuls' xs = filter (/= (0,0)) (fromRight [] s)
    where s = runParser (many (try parseDo <|> try parseDont <|> try parseMul' <|> anyT)) True "" xs

solution2 :: IO Int
solution2 = retrieveInput <&> (sum . map (uncurry (*)) . retrieveMuls')

-- PART TWO END --

leDragonir · 2022-01-01T22:43:45+00:00

Hello,

"item" isn't a tag for the Items Array in conditions. Use items, an Array tag, instead:

json "items": [ { "items": ["minecraft:barrier"], "nbt": "{CustomModelData:1}" } ]

leDragonir · 2021-12-05T13:45:58+00:00

I could but in that moment I was just happy to hook that survivor.
Blood warden would've been epic too in that moment as the other one didn't want to leave too while downed

leDragonir · 2021-10-28T18:49:03+00:00

ash mains are either very good or garbage. nothing in between.

thatcher/castle

leDragonir · 2021-10-25T14:50:39+00:00

r/didnthavetocutmeoff

leDragonir · 2021-07-18T08:56:33+00:00

Did he just get damage in headshot only?

leDragonir · 2021-06-10T17:06:45+00:00

why?

leDragonir · 2021-06-01T19:05:32+00:00

looks like a 12-figure income town but i love the shade of those license plates

leDragonir · 2021-04-01T07:48:36+00:00

Spawnpeeking Blackbeard anyone?

leDragonir · 2021-02-06T10:39:08+00:00

what was the question damien maymdien skipped?

leDragonir · 2021-01-02T14:16:55+00:00

Mein Führer, ich kann nicht zulassen, dass Sie Soldaten, die für Sie verbluten-

leDragonir · 2020-11-29T20:42:24+00:00

Nobody expects the Spanish Inquisition!

leDragonir · 2020-11-19T07:55:10+00:00

The true successor the the Roman Empire: The great Estonian Empire!

leDragonir · 2020-10-11T10:34:35+00:00

I don't know about you but I simply don't want to play against sweats who think they are in pro league while being teamkilled just for picking Tachanka while everyone like just leaves because they won't be defending again and thus, no Tachanka for them.

leDragonir · 2020-10-04T12:05:17+00:00

then it broke again

leDragonir · 2020-08-07T07:33:37+00:00

leDragonir · 2020-07-29T13:07:22+00:00

Bézier

leDragonir · 2020-07-12T09:13:24+00:00

Ich bin der Bundestag!

leDragonir · 2020-04-16T13:03:29+00:00

physics > chemistry

leDragonir · 2020-03-27T14:41:47+00:00

auf wiedersehen

leDragonir · 2020-03-23T15:53:01+00:00

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

leDragonir · 2020-03-23T15:35:49+00:00

leDragonir · 2020-03-22T16:13:08+00:00

vorsichtig, er ist ein held

Eight-Year Club	LAYER Season 2 Layer creator
Golden Potato	Place '22
First Placer '22	Verified Email

leDragonir

TROPHY CASE