Optimised day 19

[advent-of-code-22.git] / advent17 / Main.hs

diff --git a/advent17/Main.hs b/advent17/Main.hs
index 7c2b4d38a94e14a942a79cd60b8194392733d374..ce3ad424086b550569c9f788c7dcd52db018307d 100644 (file)
--- a/advent17/Main.hs
+++ b/advent17/Main.hs
@@ -4,7 +4,6 @@
 
 import AoC
 import qualified Data.Set as S
-import qualified Data.Map.Strict as M
 import Linear hiding (Trace, trace, distance)
 import Control.Lens
 import Data.Maybe
@@ -42,10 +41,9 @@ main =
       print $ part2 oneJetCycle
 
 part1, part2 :: [Position] -> Int
-part1 oneJetCycle = rocksHeight final --  fromMaybe -1 $ maximumOf (folded . _y) (final ^. chamber)
-  where final = simulate mkRocks (cycle oneJetCycle) 2022
+part1 oneJetCycle = rocksHeight $ simulate mkRocks (cycle oneJetCycle) 2022
 
-part2 oneJetCycle = calculatedHeight -- (cycleStartState, cycleRepeatState)
+part2 oneJetCycle = calculatedHeight
   where initState = SimulationState 
                       { _chamber = S.empty
                       , _jets = (cycle oneJetCycle)