Day 5 slightly terser

diff --git a/advent05.hs b/advent05.hs
index d86bd5aee32ee5301f82a3dc099b2e4eafcc604d..c86b14c97b5130f4fc3d7630f5ebe7db4ba06aea 100644 (file)
--- a/advent05.hs
+++ b/advent05.hs
@@ -38,7 +38,7 @@ dontReplace :: (Integer, Char) -> Password -> Password
 dontReplace (k, v) = Map.insertWith (\_ v -> v) k v
 
 findPassword :: Password -> [(Integer, Char)] -> Password
-findPassword p (candidate:candidates)
+findPassword p (c:cs)
   | Map.size p == 8 = p
-  | otherwise = findPassword p' candidates
-      where p' = dontReplace candidate p
+  | otherwise = findPassword p' cs
+      where p' = dontReplace c p