Done day 18

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

diff --git a/advent17/Main.hs b/advent17/Main.hs
index b6a4dab247e1618d07ba1ea0db3a3ce6ab21c2d2..2d1cf6b4f07a72f2bcfa6163a2052d13df7581c6 100644 (file)
--- a/advent17/Main.hs
+++ b/advent17/Main.hs
@@ -44,7 +44,7 @@ findYMax (V2 _ y, _) = y' * (y' - 1) `div` 2
 step :: Probe -> Probe
 step probe = probe & pos .~ (probe ^. pos ^+^ probe ^. vel) & vel .~ vel'
   where vel' = V2 (max 0 (vx - 1)) (vy - 1)
-        V2 vx vy = _vel
+        V2 vx vy = probe ^. vel
         -- v = probe ^. vel
         -- vel' = v & _x .~ (max 0 ((v ^. _x) - 1)) & _y .~ ((v ^. _y) - 1)