Init 2025

.gitignore

···
+*.beam
+*.ez
+/build
+erl_crash.dump
+inputs/

README.md

···
+# Advent of Code 2024 - Gleam
+
+My take at the 2024 advent of code in the [Gleam](https://github.com/gleam-lang/gleam) programming language
+
+## Requirements
+- Gleam
+
+## Usage
+
+Put your AOC inputs into an `inputs` folder at the `pwd` of the program.
+
+The file must be named following the syntax `day{number}.txt` where `{number}` should be replaced by the day number, ie : `day7.txt` `day24.txt`
+
+```bash
+$ gleam run
+What day do you wanna run ? 
+# Enter the day you wanna run in the prompt
+```
+
+## Extending
+There is an `src/days/day.gleam` file that exist, this file is used as a template for all other day files.
+
+After greating a file, for example `day10.gleam`, you must add it to the `src/aoc.gleam` in the case statement, for it to be launchable with the CLI.

gleam.toml

···
+name = "aoc"
+author = "Evann (Estym) Regnault"
+version = "1.0.0"
+
+[dependencies]
+simplifile = ">= 2.2.0 and < 3.0.0"
+gleam_erlang = ">= 0.27.0 and < 1.0.0"
+gleam_stdlib = ">= 0.40.0 and < 1.0.0"
+nibble = ">= 1.1.1 and < 2.0.0"
+gleam_otp = ">= 0.12.1 and < 1.0.0"
+birl = ">= 1.7.1 and < 2.0.0"
+gleam_regexp = ">= 1.0.0 and < 2.0.0"
+
+[dev-dependencies]
+gleeunit = ">= 1.0.0 and < 2.0.0"
+

manifest.toml

···
+# This file was generated by Gleam
+# You typically do not need to edit this file
+
+packages = [
+  { name = "birl", version = "1.7.1", build_tools = ["gleam"], requirements = ["gleam_stdlib", "ranger"], otp_app = "birl", source = "hex", outer_checksum = "5C66647D62BCB11FE327E7A6024907C4A17954EF22865FE0940B54A852446D01" },
+  { name = "filepath", version = "1.1.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "filepath", source = "hex", outer_checksum = "67A6D15FB39EEB69DD31F8C145BB5A421790581BD6AA14B33D64D5A55DBD6587" },
+  { name = "gleam_erlang", version = "0.32.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_erlang", source = "hex", outer_checksum = "B18643083A0117AC5CFD0C1AEEBE5469071895ECFA426DCC26517A07F6AD9948" },
+  { name = "gleam_otp", version = "0.14.1", build_tools = ["gleam"], requirements = ["gleam_erlang", "gleam_stdlib"], otp_app = "gleam_otp", source = "hex", outer_checksum = "5A8CE8DBD01C29403390A7BD5C0A63D26F865C83173CF9708E6E827E53159C65" },
+  { name = "gleam_regexp", version = "1.0.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_regexp", source = "hex", outer_checksum = "A3655FDD288571E90EE9C4009B719FEF59FA16AFCDF3952A76A125AF23CF1592" },
+  { name = "gleam_stdlib", version = "0.45.0", build_tools = ["gleam"], requirements = [], otp_app = "gleam_stdlib", source = "hex", outer_checksum = "206FCE1A76974AECFC55AEBCD0217D59EDE4E408C016E2CFCCC8FF51278F186E" },
+  { name = "gleeunit", version = "1.2.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleeunit", source = "hex", outer_checksum = "F7A7228925D3EE7D0813C922E062BFD6D7E9310F0BEE585D3A42F3307E3CFD13" },
+  { name = "nibble", version = "1.1.1", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "nibble", source = "hex", outer_checksum = "67C6BEBC1AB6D771AB893B4A7B3E66C92668C6E7774C335FEFCD545B06435FE5" },
+  { name = "ranger", version = "1.3.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "ranger", source = "hex", outer_checksum = "B8F3AFF23A3A5B5D9526B8D18E7C43A7DFD3902B151B97EC65397FE29192B695" },
+  { name = "simplifile", version = "2.2.0", build_tools = ["gleam"], requirements = ["filepath", "gleam_stdlib"], otp_app = "simplifile", source = "hex", outer_checksum = "0DFABEF7DC7A9E2FF4BB27B108034E60C81BEBFCB7AB816B9E7E18ED4503ACD8" },
+]
+
+[requirements]
+birl = { version = ">= 1.7.1 and < 2.0.0" }
+gleam_erlang = { version = ">= 0.27.0 and < 1.0.0" }
+gleam_otp = { version = ">= 0.12.1 and < 1.0.0" }
+gleam_regexp = { version = ">= 1.0.0 and < 2.0.0" }
+gleam_stdlib = { version = ">= 0.40.0 and < 1.0.0" }
+gleeunit = { version = ">= 1.0.0 and < 2.0.0" }
+nibble = { version = ">= 1.1.1 and < 2.0.0" }
+simplifile = { version = ">= 2.2.0 and < 3.0.0" }

src/aoc.gleam

···
+import birl
+import birl/duration
+import gleam/erlang
+import gleam/int
+import gleam/io
+import gleam/result
+import gleam/string
+
+pub fn main() {
+  erlang.get_line("What day do you wanna run ? ")
+  |> result.unwrap("")
+  |> string.trim()
+  |> int.parse()
+  |> result.unwrap(0)
+  |> run_day()
+}
+
+pub fn run_day(day: Int) {
+  let start = birl.now()
+  case day {
+    0 -> io.println_error("Invalid day")
+    _ -> io.println("Tried to run day " <> int.to_string(day))
+  }
+  birl.now()
+  |> birl.difference(start)
+  |> duration.accurate_decompose
+  |> io.debug
+}

src/days/day.gleam

···
+import gleam/io
+import simplifile
+
+pub fn start() -> Nil {
+  let assert Ok(content) = simplifile.read("inputs/day{number}.txt")
+  let data = parse(content)
+
+  let _ = io.debug(part1(data))
+  let _ = io.debug(part2(data))
+
+  Nil
+}
+
+fn parse(_data: String) {
+  Nil
+}
+
+fn part1(_data) {
+  Nil
+}
+
+fn part2(_data) {
+  Nil
+}

src/utils/utils.gleam

···
+import gleam/int
+import gleam/list
+import gleam/result
+import gleam/string
+
+// Gets a char at an index
+pub fn get_char_at_index(str: String, idx: Int) -> String {
+  let assert Ok(char) =
+    str
+    |> string.to_graphemes
+    |> list_get_at(idx)
+
+  char
+}
+
+// Gets item at index in a list
+pub fn list_get_at(list: List(a), index: Int) -> Result(a, String) {
+  case index {
+    0 -> {
+      case list {
+        [x, ..] -> Ok(x)
+        _ -> Error("Overflowing index")
+      }
+    }
+    _ -> {
+      case list {
+        [_, ..y] -> list_get_at(y, index - 1)
+        _ -> Error("Overflowing index")
+      }
+    }
+  }
+}
+
+// Sets value at an index in a list
+pub fn list_set_at(
+  liste: List(a),
+  index: Int,
+  value: a,
+) -> Result(List(a), String) {
+  let #(head, tail) =
+    liste
+    |> list.split(index)
+
+  let popped = list.pop(tail, fn(_) { True })
+
+  case popped {
+    Error(_) -> Error("Index Overflow")
+    Ok(new_head) -> Ok(list.flatten([head, [value], new_head.1]))
+  }
+}
+
+// Creates a loop, somehow
+pub fn loop(
+  value: a,
+  condition: fn(a) -> Bool,
+  post: fn(a) -> a,
+  body: fn(a) -> b,
+) {
+  let res = body(value)
+  let new_value = post(value)
+  case condition(new_value) {
+    False -> res
+    True -> loop(new_value, condition, post, body)
+  }
+}
+
+pub fn create_int_range(start: Int, end: Int) -> List(Int) {
+  loop(
+    [start],
+    fn(lst) { list.last(lst) |> result.unwrap(0) < end },
+    fn(lst) {
+      list.append(lst, [list.last(lst) |> result.unwrap(0) |> int.add(1)])
+    },
+    fn(lst) { lst },
+  )
+}
+
+// Find indexes of items in a list that satisfies a predicate
+pub fn list_find_indexes(liste: List(a), predicate: fn(a) -> Bool) -> List(Int) {
+  let range = create_int_range(0, list.length(liste))
+
+  range
+  |> list.map(fn(idx) {
+    let assert Ok(val) = list_get_at(liste, idx)
+
+    #(idx, predicate(val))
+  })
+  |> list.filter(fn(x) { x.1 == True })
+  |> list.map(fn(x) { x.0 })
+}