From 08852bf6a35168d6cbbf8836ea3e67c01b129034 Mon Sep 17 00:00:00 2001
From: Neil Smith <neil.git@njae.me.uk>
Date: Wed, 4 Dec 2019 08:20:30 +0000
Subject: [PATCH] An slightly different way to approach it

---
 advent04/src/advent04.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/advent04/src/advent04.hs b/advent04/src/advent04.hs
index ac7c175..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,6 +10,10 @@ upperLimit = 675810
 
 
 part1 = length $ 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
-- 
2.34.1