day6 part1 gleam

day6/day6.gleam

···
+import gleam/int
+import gleam/io
+import gleam/list
+import gleam/result
+import gleam/string
+import simplifile
+
+pub fn main() {
+  let assert Ok(raw_input) = simplifile.read("src/day6/test.txt")
+
+  let input =
+    string.trim(raw_input)
+    |> string.split("\n")
+    |> list.map(fn(line) {
+      string.split(line, " ") |> list.filter(fn(e) { e != "" })
+    })
+    |> list.transpose
+
+  let part1 =
+    list.map(input, fn(col) {
+      case list.reverse(col) {
+        ["*", ..rest] ->
+          list.fold(rest, 1, fn(acc, x) {
+            acc * { int.parse(x) |> result.unwrap(1) }
+          })
+        ["+", ..rest] ->
+          list.fold(rest, 0, fn(acc, x) {
+            acc + { int.parse(x) |> result.unwrap(0) }
+          })
+        _ -> panic
+      }
+    })
+    |> int.sum
+
+  io.println("Part 1: " <> int.to_string(part1))
+}