day 9 complete

1 files changed, 52 insertions, 0 deletions

diff --git a/aoc2023/test/day9/day9_test.gleam b/aoc2023/test/day9/day9_test.gleam
new file mode 100644
index 0000000..84fd3ba
--- /dev/null
+++ b/aoc2023/test/day9/day9_test.gleam
@@ -0,0 +1,52 @@
+import gleam/list
+import showtime/tests/should
+import adglent.{type Example, Example}
+import day9/solve
+
+type Problem1AnswerType =
+  String
+
+type Problem2AnswerType =
+  String
+
+/// Add examples for part 1 here:
+/// ```gleam
+///const part1_examples: List(Example(Problem1AnswerType)) = [Example("some input", "")]
+/// ```
+const part1_examples: List(Example(Problem1AnswerType)) = [
+  Example(
+    "0 3 6 9 12 15
+1 3 6 10 15 21
+10 13 16 21 30 45",
+    "114",
+  ),
+]
+
+/// Add examples for part 2 here:
+/// ```gleam
+///const part2_examples: List(Example(Problem2AnswerType)) = [Example("some input", "")]
+/// ```
+const part2_examples: List(Example(Problem2AnswerType)) = [
+  Example(
+    "0 3 6 9 12 15
+1 3 6 10 15 21
+10 13 16 21 30 45",
+    "2",
+  ),
+]
+
+pub fn part1_test() {
+  part1_examples
+  |> should.not_equal([])
+  use example <- list.map(part1_examples)
+  solve.part1(example.input)
+  |> should.equal(example.answer)
+}
+
+pub fn part2_test() {
+  part2_examples
+  |> should.not_equal([])
+  use example <- list.map(part2_examples)
+  solve.part2(example.input)
+  |> should.equal(example.answer)
+}