|
| 1 | +import gleam/dict |
| 2 | +import gleam/int |
| 3 | +import gleam/list |
| 4 | +import gleam/option |
| 5 | +import gleam/string |
| 6 | +import simplifile as file |
| 7 | + |
| 8 | +pub fn part_1() { |
| 9 | + let assert Ok(input) = file.read("./input/day1.txt") |
| 10 | + |
| 11 | + input |
| 12 | + |> setup() |
| 13 | + |> list_processor() |
| 14 | +} |
| 15 | + |
| 16 | +pub fn part_2() { |
| 17 | + let assert Ok(input) = file.read("./input/day1.txt") |
| 18 | + |
| 19 | + input |
| 20 | + |> setup() |
| 21 | + |> similarity_scores() |
| 22 | +} |
| 23 | + |
| 24 | +pub fn list_processor(lists) { |
| 25 | + let #(left, right) = lists |
| 26 | + |
| 27 | + let left = list.sort(left, by: int.compare) |
| 28 | + let right = list.sort(right, by: int.compare) |
| 29 | + |
| 30 | + left |
| 31 | + |> list.map2(right, fn(x, y) { int.absolute_value(x - y) }) |
| 32 | + |> list.fold(0, int.add) |
| 33 | + |> int.absolute_value |
| 34 | +} |
| 35 | + |
| 36 | +pub fn similarity_scores(lists) { |
| 37 | + let #(left, right) = lists |
| 38 | + let new = dict.new() |
| 39 | + |
| 40 | + let counts = list.fold(right, new, similarity_fold) |
| 41 | + |
| 42 | + list.fold(left, 0, fn(acc, x) { |
| 43 | + let key = int.to_string(x) |
| 44 | + |
| 45 | + let sim_score = case dict.get(counts, key) { |
| 46 | + Ok(i) -> x * i |
| 47 | + Error(Nil) -> 0 |
| 48 | + } |
| 49 | + acc + sim_score |
| 50 | + }) |
| 51 | +} |
| 52 | + |
| 53 | +fn increment(key) { |
| 54 | + case key { |
| 55 | + option.Some(i) -> i + 1 |
| 56 | + option.None -> 1 |
| 57 | + } |
| 58 | +} |
| 59 | + |
| 60 | +fn similarity_fold(acc, x) { |
| 61 | + let key = int.to_string(x) |
| 62 | + dict.upsert(acc, key, increment) |
| 63 | +} |
| 64 | + |
| 65 | +fn folder(acc, item) { |
| 66 | + let #(left_rest, right_rest) = acc |
| 67 | + |
| 68 | + let assert [left, right] = string.split(item, " ") |
| 69 | + let assert Ok(left) = int.parse(left) |
| 70 | + let assert Ok(right) = int.parse(right) |
| 71 | + |
| 72 | + #([left, ..left_rest], [right, ..right_rest]) |
| 73 | +} |
| 74 | + |
| 75 | +fn setup(input) { |
| 76 | + input |
| 77 | + |> string.trim() |
| 78 | + |> string.split("\n") |
| 79 | + |> list.fold(#([], []), folder) |
| 80 | +} |
0 commit comments