Add gitignore

.gitignore

@@ -0,0 +1 @@
+example.txt

README.md

@@ -12,6 +12,8 @@ https://adventofcode.com/2020/
 | 4 |  `**`  |  `**`   |      |
 | 5 |        |  `**`   |      |
 | 6 |        |  `**`   |      |
-| 6 |  `**`  |         |      |
+| 7 |  `**`  |         |      |
+| 8 |        |  `**`   |      |
+| 9 |        |  `**`   |      |
 
 `test.sh` can be used to run all solutions and automatically compares them to (my) puzzle inputs and the expected outputs.

data/day9.expected

@@ -0,0 +1,2 @@
+26134589
+3535124

day9/day9.hs

@@ -0,0 +1,30 @@
+import AoC
+
+import Control.Monad
+import Data.List
+import Data.Maybe
+
+slidingWindow :: Int -> [a] -> [[a]]
+slidingWindow n xs
+  | length xs < n = []
+  | otherwise = take n xs : slidingWindow n (tail xs)
+
+summingTo :: (Eq a, Num a) => Int -> a -> [a] -> Maybe [a]
+n `summingTo` x = find ((==x) . sum) . replicateM n
+
+sublistSummingTo :: (Num a, Ord a) => a -> [a] -> Maybe [a]
+sublistSummingTo n = fmap snd . find ((== n) . fst) . scanl go (0, [])
+    where go = dropNeeded .: addToAcc
+          addToAcc (sum, parts) x = (sum+x, parts++[x])
+          dropNeeded = fromJust . find ((<= n) . fst) . iterate dropPart
+          dropPart (sum, (x:xs)) = (sum-x, xs)
+
+part1 :: [Int] -> Int
+part1 = snd . fromJust . find (not . uncurry doesSum) . map (\xs -> (init xs, last xs)) . slidingWindow 26
+    where doesSum xs y = isJust $ 2 `summingTo` y $ xs
+
+part2 :: [Int] -> Int
+part2 xs = minimum range + maximum range
+    where range = fromJust $ sublistSummingTo (part1 xs) xs
+
+main = runAoC (map read . lines) part1 part2

test.sh

@@ -25,13 +25,22 @@ run_solution() {
 	fi
 }
 
+shopt -s dotglob
+
 for day in day*; do
 	input=data/$day.input
 	expected=data/$day.expected
 	for solution in "$day"/*; do
 		echo -n "$solution... "
+
+		case "${solution##*/}" in
+			example.txt|.*)
+				echo SKIP
+				continue
+		esac
+
 		solution_output=$(mktemp)
-		trap "rm $solution_output" EXIT
+		trap "rm -f '$solution_output'" EXIT
 		run_solution "$solution" > "$solution_output"
 
 		if ! diff -u "$expected" "$solution_output"; then
@@ -48,5 +57,7 @@ for day in day*; do
 		else
 			echo ok
 		fi
+
+		rm "$solution_output"
 	done
 done