From f95e777e6960f44870040397d6a73478db2d4e3f Mon Sep 17 00:00:00 2001 From: Neil Smith Date: Wed, 4 Dec 2019 08:09:57 +0000 Subject: [PATCH] Removed a redundant filter --- advent04/src/advent04.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/advent04/src/advent04.hs b/advent04/src/advent04.hs index 9066cbb..ac7c175 100644 --- a/advent04/src/advent04.hs +++ b/advent04/src/advent04.hs @@ -9,7 +9,7 @@ upperLimit = 675810 part1 = length $ filter inRange $ filter adjacentSame candidates -part2 = length $ filter isolatedAdjacentSame $ filter inRange $ filter adjacentSame candidates +part2 = length $ filter inRange $ filter isolatedAdjacentSame candidates inRange digits = n >= lowerLimit && n <= upperLimit where n = numify digits -- 2.34.1