day 17 2015 - ugly

2015/17/gleam/gleam.toml

···
+name = "main"
+version = "1.0.0"
+
+# Fill out these fields if you intend to generate HTML documentation or publish
+# your project to the Hex package manager.
+#
+# description = ""
+# licences = ["Apache-2.0"]
+# repository = { type = "github", user = "", repo = "" }
+# links = [{ title = "Website", href = "" }]
+#
+# For a full reference of all the available options, you can have a look at
+# https://gleam.run/writing-gleam/gleam-toml/.
+
+[dependencies]
+gleam_stdlib = ">= 0.44.0 and < 2.0.0"
+simplifile = ">= 2.3.0 and < 3.0.0"
+
+[dev-dependencies]
+gleeunit = ">= 1.0.0 and < 2.0.0"

2015/17/gleam/manifest.toml

···
+# This file was generated by Gleam
+# You typically do not need to edit this file
+
+packages = [
+  { name = "filepath", version = "1.1.2", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "filepath", source = "hex", outer_checksum = "B06A9AF0BF10E51401D64B98E4B627F1D2E48C154967DA7AF4D0914780A6D40A" },
+  { name = "gleam_stdlib", version = "0.65.0", build_tools = ["gleam"], requirements = [], otp_app = "gleam_stdlib", source = "hex", outer_checksum = "7C69C71D8C493AE11A5184828A77110EB05A7786EBF8B25B36A72F879C3EE107" },
+  { name = "gleeunit", version = "1.7.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleeunit", source = "hex", outer_checksum = "CD701726CBCE5588B375D157B4391CFD0F2F134CD12D9B6998A395484DE05C58" },
+  { name = "simplifile", version = "2.3.0", build_tools = ["gleam"], requirements = ["filepath", "gleam_stdlib"], otp_app = "simplifile", source = "hex", outer_checksum = "0A868DAC6063D9E983477981839810DC2E553285AB4588B87E3E9C96A7FB4CB4" },
+]
+
+[requirements]
+gleam_stdlib = { version = ">= 0.44.0 and < 2.0.0" }
+gleeunit = { version = ">= 1.0.0 and < 2.0.0" }
+simplifile = { version = ">= 2.3.0 and < 3.0.0" }

2015/17/gleam/src/main.gleam

···
+import gleam/dict
+import gleam/int
+import gleam/io
+import gleam/list
+import gleam/result
+import gleam/string
+import simplifile as file
+
+fn check_containers_part1(input, remaining, right_options) {
+  case remaining {
+    0 -> right_options + 1
+    r if r < 0 -> right_options
+    _ -> {
+      let #(_, right_options) =
+        input
+        |> dict.fold(#(input, right_options), fn(acc, cid, cv) {
+          let #(input, right_options) = acc
+          let input = input |> dict.delete(cid)
+          #(input, check_containers_part1(input, remaining - cv, right_options))
+        })
+      right_options
+    }
+  }
+}
+
+fn check_containers_part2(input, remaining, right_options, jars_used) {
+  case remaining {
+    0 ->
+      right_options
+      |> dict.insert(
+        jars_used,
+        { dict.get(right_options, jars_used) |> result.unwrap(0) } + 1,
+      )
+    r if r < 0 -> right_options
+    _ -> {
+      let #(_, right_options) =
+        input
+        |> dict.fold(#(input, right_options), fn(acc, cid, cv) {
+          let #(input, right_options) = acc
+          let input = input |> dict.delete(cid)
+          #(
+            input,
+            check_containers_part2(
+              input,
+              remaining - cv,
+              right_options,
+              jars_used + 1,
+            ),
+          )
+        })
+      right_options
+    }
+  }
+}
+
+pub fn main() {
+  let assert Ok(input) = file.read(from: "../input.txt")
+    as "Input file not found"
+  let #(input, _) =
+    input
+    |> string.trim
+    |> string.split("\n")
+    |> list.fold(#(dict.new(), 1), fn(l, v) {
+      #(dict.insert(l.0, l.1, int.parse(v) |> result.unwrap(0)), l.1 + 1)
+    })
+
+  check_containers_part1(input, 150, 0)
+  |> int.to_string
+  |> io.println
+
+  let #(_number_of_jars, possibilities) =
+    check_containers_part2(input, 150, dict.new(), 0)
+    |> dict.fold(#(999_999, 0), fn(last, number_of_jars, possibilities) {
+      case last.0 > number_of_jars {
+        True -> #(number_of_jars, possibilities)
+        False -> last
+      }
+    })
+  possibilities
+  |> int.to_string
+  |> io.println
+}