From 2a5e033b2d8882f50f2bfe4da25906c57f2a41f0 Mon Sep 17 00:00:00 2001
From: "H.J" <thechairman@thechairman.info>
Date: Thu, 7 Mar 2024 15:50:04 -0500
Subject: CodingQuest days 3 and 4 in Gleam

---
 codingquest2024/src/day4/solution.gleam | 49 +++++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)
 create mode 100644 codingquest2024/src/day4/solution.gleam

(limited to 'codingquest2024/src/day4/solution.gleam')

diff --git a/codingquest2024/src/day4/solution.gleam b/codingquest2024/src/day4/solution.gleam
new file mode 100644
index 0000000..a03b2be
--- /dev/null
+++ b/codingquest2024/src/day4/solution.gleam
@@ -0,0 +1,49 @@
+import gleam/float
+import gleam/io
+import gleam/list
+import gleam/regex
+import gleam/result
+import gleam/string
+import simplifile
+
+pub type Star {
+  Star(name: String, x: Float, y: Float, z: Float)
+}
+
+pub fn main() {
+  let assert Ok(data) = simplifile.read(from: "./src/day4/data.txt")
+
+  let assert [_, ..stars] = string.split(data, "\n")
+
+  stars
+  |> list.map(parse_star_record)
+  |> list.combination_pairs()
+  |> list.map(star_distance)
+  |> list.reduce(float.min)
+  |> io.debug
+}
+
+fn parse_star_record(str: String) -> Star {
+  let assert Ok(re) = regex.from_string("\\s{2,}")
+
+  let assert [name, ..coords] = regex.split(with: re, content: str)
+  let assert [_, x, y, z] =
+    coords
+    |> list.map(float.parse)
+    |> result.values
+
+  Star(name, x, y, z)
+}
+
+fn star_distance(stars: #(Star, Star)) -> Float {
+  let #(star1, star2) = stars
+  let assert Ok(dist) =
+    float.square_root(
+      sq(star1.x -. star2.x) +. sq(star1.y -. star2.y) +. sq(star1.z -. star2.z),
+    )
+  dist
+}
+
+fn sq(x: Float) -> Float {
+  x *. x
+}
-- 
cgit v1.2.3