jasterv/aoc2024-haskell
1
0
Fork 0
mirror of https://codeberg.org/JasterV/aoc2024-haskell.git synced 2026-04-26 18:10:05 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

format day3

Browse source
This commit is contained in:
Victor Martinez 2025-03-13 22:11:26 +01:00
parent 48e70ac9db
commit 05900411a2
1 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/Day3.hs
View file

@ -4,12 +4,6 @@ import Data.Maybe (mapMaybe)
import Text.Read (readMaybe) import Text.Read (readMaybe)
import Text.Regex.TDFA import Text.Regex.TDFA
data ProgramState = Enabled | Disabled
data Program = Program ProgramState Int
data Instruction = Do | Dont | Mul Int Int
partOne :: String -> Int partOne :: String -> Int
partOne text = programValue $ foldl runInstruction initProgram $ parseInstructions matches partOne text = programValue $ foldl runInstruction initProgram $ parseInstructions matches
where where
@ -20,6 +14,14 @@ partTwo text = programValue $ foldl runInstruction initProgram $ parseInstructio
where where
matches = getAllTextMatches (text =~ "do\\(\\)|don't\\(\\)|mul\\([0-9]{1,3},[0-9]{1,3}\\)") matches = getAllTextMatches (text =~ "do\\(\\)|don't\\(\\)|mul\\([0-9]{1,3},[0-9]{1,3}\\)")
-- Program
data ProgramState = Enabled | Disabled
data Program = Program ProgramState Int
data Instruction = Do | Dont | Mul Int Int
initProgram :: Program initProgram :: Program
initProgram = Program Enabled 0 initProgram = Program Enabled 0