From 53e82f9d67944f57a442cb1c663cd6f7b42ce62c Mon Sep 17 00:00:00 2001
From: Gattix <gattix@cock.li>
Date: Tue, 12 Dec 2023 18:09:46 +0100
Subject: [PATCH] part11: gqG

---
 2023/day11/day11.hs | 40 ++++++++++++++++++++++++++--------------
 1 file changed, 26 insertions(+), 14 deletions(-)

diff --git a/2023/day11/day11.hs b/2023/day11/day11.hs
index 0f43412..6581f9c 100644
--- a/2023/day11/day11.hs
+++ b/2023/day11/day11.hs
@@ -1,7 +1,7 @@
 import Control.Arrow
+import Control.Lens
 import Data.Function
 import Data.Ix
-import Control.Lens
 import Data.List
 import Data.Ord
 import Linear.V2
@@ -11,25 +11,37 @@ main = interact $ show . (day11 1 &&& day11 999999) . parse . lines
 
 day11 :: V2 Int -> [V2 Int] -> Int
 day11 n = (`div` 2) . sum . f . (expandBy n =<< findEmptyRows)
-    where f xs = [sum $ abs $ x-y | x<- xs, y<- xs]
+  where
+    f xs = [sum $ abs $ x - y | x <- xs, y <- xs]
 
 parse :: [String] -> [V2 Int]
-parse = map fst . filter ((=='#') . snd) . concat . zipWith (map . f) [0..] . map (zip [0..])
-    where f x (y,z) = (V2 y x, z)
-
+parse =
+  map fst .
+  filter ((== '#') . snd) . concat . zipWith (map . f) [0 ..] . map (zip [0 ..])
+  where
+    f x (y, z) = (V2 y x, z)
 
 expandBy :: V2 Int -> [V2 Int] -> [V2 Int] -> [V2 Int]
 expandBy _ [] input = input
-expandBy n (d:ds) input = expandBy n (map (moveCoord n d) ds) (map (moveCoord n d) input)
-
+expandBy n (d:ds) input =
+  expandBy n (map (moveCoord n d) ds) (map (moveCoord n d) input)
 
 findEmptyRows :: [V2 Int] -> [V2 Int]
-findEmptyRows input = map flipV2 (findEmptyRows  $ map flipV2 input) ++ findEmptyRows input
-    where findEmptyRows = deleteFirstsBy ((==) `on` view _x) b
-          b = range (V2 0 0, set _y 0 maxP)
-          maxP = maximumBy (comparing (view _x)) input
-          flipV2 (V2 x y) = V2 y x
+findEmptyRows input =
+  map flipV2 (findEmptyRows $ map flipV2 input) ++ findEmptyRows input
+  where
+    findEmptyRows = deleteFirstsBy ((==) `on` view _x) b
+    b = range (V2 0 0, set _y 0 maxP)
+    maxP = maximumBy (comparing (view _x)) input
+    flipV2 (V2 x y) = V2 y x
 
 moveCoord :: V2 Int -> V2 Int -> V2 Int -> V2 Int
-moveCoord n x y = if y^.p >= x ^.p then y + n * signum x else y
-    where p = if x^._x == 0 then _y else _x
+moveCoord n x y =
+  if y ^. p >= x ^. p
+    then y + n * signum x
+    else y
+  where
+    p =
+      if x ^. _x == 0
+        then _y
+        else _x