From 7d704786ec158349f2f34590a858df6e78e844d6 Mon Sep 17 00:00:00 2001
From: "H.J" <thechairman@thechairman.info>
Date: Mon, 3 Jun 2024 10:36:31 -0400
Subject: gleam day 1 2017

---
 aoc2017-gleam/src/aoc_2017/day_1.gleam | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 aoc2017-gleam/src/aoc_2017/day_1.gleam

(limited to 'aoc2017-gleam/src/aoc_2017')

diff --git a/aoc2017-gleam/src/aoc_2017/day_1.gleam b/aoc2017-gleam/src/aoc_2017/day_1.gleam
new file mode 100644
index 0000000..786d0dd
--- /dev/null
+++ b/aoc2017-gleam/src/aoc_2017/day_1.gleam
@@ -0,0 +1,32 @@
+import gleam/int
+import gleam/list
+import gleam/result
+import gleam/string
+
+pub fn parse(input: String) {
+  input
+  |> string.to_graphemes()
+  |> list.map(int.parse)
+  |> result.values()
+}
+
+pub fn pt_1(input: List(Int)) {
+  pair_by(numbers: input, considering: 1)
+}
+
+pub fn pt_2(input: List(Int)) {
+  pair_by(numbers: input, considering: list.length(input) / 2)
+}
+
+fn find_neighbor_matches(number_pairs: List(#(Int, Int))) {
+  case number_pairs {
+    [] -> 0
+    [#(a, b), ..rest] if a == b -> a + find_neighbor_matches(rest)
+    [_, ..rest] -> find_neighbor_matches(rest)
+  }
+}
+
+fn pair_by(numbers xs: List(Int), considering by: Int) {
+  list.zip(xs, list.append(list.drop(xs, by), list.take(xs, by)))
+  |> find_neighbor_matches()
+}
-- 
cgit v1.2.3