syntax

mstksg · mstksg · commit 0aaadda25b12 · 2025-12-07T15:59:04.000-08:00
diff --git a/2025/AOC2025/Day07.hs b/2025/AOC2025/Day07.hs
@@ -90,7 +90,7 @@ day07b =
     , sSolve =
         \(startPos, splitters) ->
           fmap getSum . M.lookup (startPos + V2 0 2) $
-            solve startPos splitters 0 1 $ \p ->
+            solve startPos splitters 0 1 \p ->
               [p' | (cond, dps) <- rules splitters, cond p, p' <- (p +) <$> dps] -- apply cond to src
     }
 

Original file line number	Diff line number	Diff line change
`@@ -90,7 +90,7 @@ day07b =`
`90`	`90`	`, sSolve =`
`91`	`91`	`\(startPos, splitters) ->`
`92`	`92`	`fmap getSum . M.lookup (startPos + V2 0 2) $`
`93`		`- solve startPos splitters 0 1 $ \p ->`
	`93`	`+ solve startPos splitters 0 1 \p ->`
`94`	`94`	`[p' \| (cond, dps) <- rules splitters, cond p, p' <- (p +) <$> dps] -- apply cond to src`
`95`	`95`	`}`
`96`	`96`