aboutsummaryrefslogtreecommitdiff
path: root/aoc2023-gleam/src/day9
diff options
context:
space:
mode:
authorH.J <thechairman@thechairman.info>2024-10-09 11:36:55 -0400
committerH.J <thechairman@thechairman.info>2024-10-09 11:36:55 -0400
commit8777ff071f7bb37631baa7b6717ad29961e50911 (patch)
tree6d59c4ed58e454b960339c3d1151f0a879e8d7cb /aoc2023-gleam/src/day9
parent6156a9ef7be4012063a042aafb4e9b0d7eadde8e (diff)
downloadgleam_aoc-8777ff071f7bb37631baa7b6717ad29961e50911.tar.gz
gleam_aoc-8777ff071f7bb37631baa7b6717ad29961e50911.zip
sorting by language
Diffstat (limited to 'aoc2023-gleam/src/day9')
-rw-r--r--aoc2023-gleam/src/day9/.gitignore1
-rw-r--r--aoc2023-gleam/src/day9/solve.gleam70
2 files changed, 0 insertions, 71 deletions
diff --git a/aoc2023-gleam/src/day9/.gitignore b/aoc2023-gleam/src/day9/.gitignore
deleted file mode 100644
index ae40cea..0000000
--- a/aoc2023-gleam/src/day9/.gitignore
+++ /dev/null
@@ -1 +0,0 @@
-input.txt \ No newline at end of file
diff --git a/aoc2023-gleam/src/day9/solve.gleam b/aoc2023-gleam/src/day9/solve.gleam
deleted file mode 100644
index a2cc7ae..0000000
--- a/aoc2023-gleam/src/day9/solve.gleam
+++ /dev/null
@@ -1,70 +0,0 @@
-import adglent.{First, Second}
-import gleam/io
-import gleam/list
-import gleam/string
-import gleam/int
-
-fn parse(input: String, backwards backwards: Bool) -> List(List(Int)) {
- use line <- list.map(string.split(input, "\n"))
- use n_str <- list.map(maybe_backwards(string.split(line, " "), backwards))
- let assert Ok(n) = int.parse(n_str)
- n
-}
-
-fn maybe_backwards(xs: List(a), backwards: Bool) -> List(a) {
- case backwards {
- False -> list.reverse(xs)
- True -> xs
- }
-}
-
-fn is_constant(ns: List(Int)) -> Bool {
- case list.unique(ns) {
- [_] -> True
- _ -> False
- }
-}
-
-fn take_derivative(ns: List(Int)) -> List(Int) {
- ns
- |> list.window_by_2
- |> list.map(fn(tup) { tup.0 - tup.1 })
-}
-
-fn extrapolate(ns: List(Int)) {
- case is_constant(ns), ns {
- True, [n, ..] -> n
- False, [n, ..] -> n + extrapolate(take_derivative(ns))
- _, _ -> panic as "list empty when it shouldn't be"
- }
-}
-
-fn part(input: String, backwards backwards: Bool) {
- input
- |> parse(backwards: backwards)
- |> list.fold(0, fn(acc, ns) { extrapolate(ns) + acc })
- |> string.inspect
-}
-
-pub fn part1(input: String) {
- part(input, backwards: False)
-}
-
-pub fn part2(input: String) {
- part(input, backwards: True)
-}
-
-pub fn main() {
- let assert Ok(part) = adglent.get_part()
- let assert Ok(input) = adglent.get_input("9")
- case part {
- First ->
- part1(input)
- |> adglent.inspect
- |> io.println
- Second ->
- part2(input)
- |> adglent.inspect
- |> io.println
- }
-}