wibble

glguy · Dec 22, 2023 · f7352d9 · f7352d9
1 parent 2269d03
commit f7352d9
Showing 1 changed file with 4 additions and 8 deletions.
diff --git a/solutions/src/2023/22.hs b/solutions/src/2023/22.hs
@@ -40,14 +40,10 @@ import Data.Ord (comparing)
 main :: IO ()
 main =
  do input <- [format|2023 22 (%d,%d,%d~%d,%d,%d%n)*|]
-    let bricks = map toBrick input
-    let sunk = lowerAll bricks
-    let support = runEval (parList rseq [countFalls xs | (_,xs) <- pickOne sunk])
-    print (count 0 support)
-    print (sum support)
-
-countSupported :: [Box' 3] -> Box' 3 -> Int
-countSupported bricks brick = countFalls (delete brick bricks)
+    let sunk = lowerAll (map toBrick input)
+        falls = runEval (parList rseq [countFalls xs | (_,xs) <- pickOne sunk])
+    print (count 0 falls)
+    print (sum falls)
 
 lowerAll :: [Box' 3] -> [Box' 3]
 lowerAll = foldl lowerOne [] . sort