Garmelon/advent-of-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[hs] Clean up 2019_02

Browse source
This commit is contained in:
Joscha 2020-11-02 23:59:07 +00:00
parent e05a194943
commit 0a99b9b647
1 changed files with 6 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

16
hs/src/Aoc/Y2019/A02.hs
View file

@ -83,11 +83,6 @@ run s = case step s of
Left e -> (s, e) Left e -> (s, e)
Right s' -> run s' Right s' -> run s'
steps :: State -> [State]
steps s = s : case step s of
Left _ -> []
Right s' -> steps s'
patch :: Int -> Int -> Memory -> Memory patch :: Int -> Int -> Memory -> Memory
patch noun verb = writeMem 2 verb . writeMem 1 noun patch noun verb = writeMem 2 verb . writeMem 1 noun
@ -97,12 +92,13 @@ solve201902 f = do
let mem = newMem values let mem = newMem values
putStrLn ">> Part 1" putStrLn ">> Part 1"
let (s, _) = run $ newState $ patch 12 2 mem let (s1, _) = run $ newState $ patch 12 2 mem
putStrLn $ "Value at position 0: " <> show (readMem 0 $ stateMem s) putStrLn $ "Value at position 0: " <> show (readMem 0 $ stateMem s1)
putStrLn ">> Part 2" putStrLn ">> Part 2"
let attempts = [(noun, verb) | noun <- [0..99], verb <- [0..99]] let attempts = [(noun, verb) | noun <- [0..99], verb <- [0..99]]
for_ attempts $ \(noun, verb) -> do for_ attempts $ \(noun, verb) -> do
let (s, _) = run $ newState $ patch noun verb mem let (s2, _) = run $ newState $ patch noun verb mem
(Just result) = readMem 0 $ stateMem s Just result = readMem 0 $ stateMem s2
when (result == 19690720) $ putStrLn $ "100 * noun + verb = " <> show (100 * noun + verb) when (result == 19690720) $
putStrLn $ "100 * noun + verb = " <> show (100 * noun + verb)