12 part1 = length $ filter inRange $ filter adjacentSame candidates
13 part1a = length $ filter (>= lowerLimit)
14 $ filter (<= upperLimit)
16 $ filter adjacentSame candidates
17 part2 = length $ filter inRange $ filter isolatedAdjacentSame candidates
19 inRange digits = n >= lowerLimit && n <= upperLimit
20 where n = numify digits
22 numify :: (Int, Int, Int, Int, Int, Int) -> Int
23 numify (d1, d2, d3, d4, d5, d6) =
24 d1 * 10^5 + d2 * 10^4 + d3 * 10^3 + d4 * 10^2 + d5 * 10 + d6
26 adjacentSame (d1, d2, d3, d4, d5, d6) =
27 d1 == d2 || d2 == d3 || d3 == d4 || d4 == d5 || d5 == d6
29 isolatedAdjacentSame (d1, d2, d3, d4, d5, d6) =
30 (d1 == d2 && d2 /= d3)
31 || (d1 /= d2 && d2 == d3 && d3 /= d4)
32 || (d2 /= d3 && d3 == d4 && d4 /= d5)
33 || (d3 /= d4 && d4 == d5 && d5 /= d6)
34 || (d4 /= d5 && d5 == d6)
37 candidates = [ (d1, d2, d3, d4, d5, d6)