adyxax/advent-of-code
1
0
Fork 0
Code Issues Pull requests Activity

2023-20 part 2 in haskell

Browse source
This commit is contained in:
Julien Dessaux 2024-07-10 00:01:54 +02:00
parent 603626268a
commit 21cbb9f5fe
Signed by: adyxax
GPG key ID: F92E51B86E07177E
2 changed files with 119 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
2023/20-Pulse_Propagation/first.hs
View file

@ -61,7 +61,6 @@ compute input = let (x, y) = computeX 1000 (0, 0) $ initConjuctions input in x *
computeX i n input = let (n', input') = compute' (1, 0) [("button", Low, "broadcaster")] input
in computeX (i-1) (scoreAdd n n') input'
compute' :: (Int, Int) -> [(String, Pulse, String)] -> Input -> ((Int, Int), Input)
compute' n [] input = (n, input)
compute' n signals input | length stepAll == 0 = (n, input)
| otherwise = compute' (scoreAdd n $ score stepAll) stepAll alterAll
where