Done day 23 part 1
[advent-of-code-23.git] / advent12 / MainBruteForce.hs
index 9aa9ae3914320522e9bfc2a087dea28c743fc2fe..6b8620395a377b30138beae95080ccfa3895606d 100644 (file)
@@ -1,4 +1,4 @@
--- Writeup at https://work.njae.me.uk/2023/12/08/advent-of-code-2023-day-8/
+-- Writeup at https://work.njae.me.uk/2023/12/15/advent-of-code-2023-day-12/
 
 import AoC
 import Data.Text (Text)
@@ -49,9 +49,6 @@ choose n (x:xs)
   | length xs == n - 1 = [(x:xs)]
   | otherwise = (fmap (x:) (choose (n-1) xs)) ++ (choose n xs)
 
--- unknownIndices :: [Spring] -> [Int]
--- unknownIndices = elemIndices Unknown
-
 numDamagedToPlace :: Record -> Int
 numDamagedToPlace (Record springs signature) = totalDamaged - knownDamaged
   where knownDamaged = length $ filter (== Damaged) springs