X-Git-Url: https://git.njae.me.uk/?a=blobdiff_plain;f=advent04%2Fsrc%2Fadvent04.hs;h=d7ec1c858cf711a2e36baa187a7ab9bac087ffba;hb=0687ede77cf156e00b9c2cc1a5e49c633b8ba816;hp=9066cbbd2744d58d54cf01aabef5733df24d17da;hpb=c2a0cc1ad95b213ef2552d25328341b3479822f7;p=advent-of-code-19.git

diff --git a/advent04/src/advent04.hs b/advent04/src/advent04.hs
index 9066cbb..d7ec1c8 100644
--- a/advent04/src/advent04.hs
+++ b/advent04/src/advent04.hs
@@ -2,6 +2,7 @@
 main :: IO ()
 main = do 
         print part1
+        print part1a
         print part2 
 
 lowerLimit = 134792
@@ -9,7 +10,11 @@ upperLimit = 675810
 
 
 part1 = length $ filter inRange $ filter adjacentSame candidates
-part2 = length $ filter isolatedAdjacentSame $ filter inRange $ filter adjacentSame candidates
+part1a = length $ filter (>= lowerLimit) 
+                $ filter (<= upperLimit) 
+                $ map numify 
+                $ filter adjacentSame candidates
+part2 = length $ filter inRange $ filter isolatedAdjacentSame candidates
 
 inRange digits = n >= lowerLimit && n <= upperLimit
     where n = numify digits