X-Git-Url: https://git.njae.me.uk/?p=advent-of-code-18.git;a=blobdiff_plain;f=src%2Fadvent12%2Fadvent12.hs;h=67bfef15fae2831dfd061465eb213743aa861d20;hp=cbf75dbd5af434c3551130bb1de338dfad61cdc5;hb=475f075633a2b578a919999b476c2aa137ebed41;hpb=5eaa0cf7eaef1a58be0f13c1273971bb118aa143 diff --git a/src/advent12/advent12.hs b/src/advent12/advent12.hs index cbf75db..67bfef1 100644 --- a/src/advent12/advent12.hs +++ b/src/advent12/advent12.hs @@ -29,7 +29,6 @@ part1 rules row = sum $ (iterate (\r -> applyRules rules r) row)!!20 part2 :: [Rule] -> Pots -> Integer --- part2 rules pots = (length differentQuads, steadyDiff, sum la, sum lb, sum lc, sum ld)-- (fromIntegral (sum la)) + steadyDiff * remainingGenerations part2 rules pots = (fromIntegral (sum lc)) + steadyDiff * remainingGenerations where rows = (iterate (\r -> applyRules rules r) pots) rowQuads = zip4 rows (drop 1 rows) (drop 2 rows) (drop 3 rows)