sigh, one of those typos.

Javran · Feb 12, 2024 · cec46c3 · cec46c3
1 parent a055223
commit cec46c3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Javran/AdventOfCode/Y2023/Day18.hs b/src/Javran/AdventOfCode/Y2023/Day18.hs
@@ -313,7 +313,7 @@ loopPathPredicates cs = (isEdgeOnPath, isCoordOnPath)
 
     isCoordOnPath (CoordP (r0, c0)) =
       lookupAux hSegs r0 (\rng -> inRange rng c0)
-        || lookupAux hSegs c0 (\rng -> inRange rng r0)
+        || lookupAux vSegs c0 (\rng -> inRange rng r0)
 
 {-
   Tests whether moving a block in certain direction will hit the loop path.