2024 - Gleam - Day 01 - Part 2

2024/solutions/gleam/.devcontainer/devcontainer.json

@@ -1,7 +1,7 @@
 // For format details, see https://aka.ms/devcontainer.json. For config options, see the
 // README at: https://github.com/devcontainers/templates/tree/main/src/ubuntu
 {
-	"name": "Ubuntu",
+	"name": "Gleam",
 	// Or use a Dockerfile or Docker Compose file. More info: https://containers.dev/guide/dockerfile
 	"image": "mcr.microsoft.com/devcontainers/base:jammy",
 	// Features to add to the dev container. More info: https://containers.dev/features.

2024/solutions/gleam/day01/src/day01.gleam

@@ -6,7 +6,7 @@ import gleam/string
 import simplifile
 
 type Data =
-  List(#(Int, Int))
+  #(List(Int), List(Int))
 
 pub fn parse(input: String) -> Data {
   string.trim(input)
@@ -21,10 +21,11 @@ pub fn parse(input: String) -> Data {
       })
     #(x, y)
   })
+  |> list.unzip
 }
 
 pub fn part1(data: Data) {
-  let #(list1, list2) = list.unzip(data)
+  let #(list1, list2) = data
   let list1_sorted = list.sort(list1, int.compare)
   let list2_sorted = list.sort(list2, int.compare)
   list.zip(list1_sorted, list2_sorted)
@@ -35,8 +36,10 @@ pub fn part1(data: Data) {
   |> list.fold(0, int.add)
 }
 
-pub fn part2(_x) {
-  42
+pub fn part2(data: Data) {
+  let #(list1, list2) = data
+  list.map(list1, fn(el) { list.count(list2, fn(el2) { el == el2 }) * el })
+  |> list.fold(0, int.add)
 }
 
 pub fn main() {

2024/solutions/gleam/day01/test/day01_test.gleam

@@ -12,7 +12,9 @@ pub fn testset_test() {
       part1: Some(fn(input) {
         day01.parse(input) |> day01.part1 |> int.to_string
       }),
-      part2: option.None,
+      part2: Some(fn(input) {
+        day01.parse(input) |> day01.part2 |> int.to_string
+      }),
     )
   testbase.testset_test(config)
 }