--- Writeup at https://work.njae.me.uk/2023/12/10/advent-of-code-2023-day-10/
+-- Writeup at https://work.njae.me.uk/2023/12/11/advent-of-code-2023-day-11/
import AoC
allDistances :: Galaxies -> Int
allDistances gs = case S.minView gs of
Nothing -> 0
- Just (g, gs') -> (S.foldl' (addDist g) 0 gs) + allDistances gs'
+ Just (g, gs') -> (S.foldl' (
+ addDist g) 0 gs) + allDistances gs'
where addDist g1 acc g2 = acc + distance g1 g2
distance :: Position -> Position -> Int