From 6da10b268dd639594cb5a8cc6e9bbb86ce4beb5e Mon Sep 17 00:00:00 2001
From: Alexandre Jesus <adbjesus@gmail.com>
Date: Tue, 3 Dec 2024 00:26:58 +0000
Subject: Days 1 and 2

---
 src/day01.exs | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 src/day01.exs

(limited to 'src/day01.exs')

diff --git a/src/day01.exs b/src/day01.exs
new file mode 100644
index 0000000..b9b346d
--- /dev/null
+++ b/src/day01.exs
@@ -0,0 +1,20 @@
+[l1, l2] = IO.read(:stdio, :eof)
+|> String.split([" ", "\n"], trim: true)
+|> Enum.map(&String.to_integer/1)
+|> Enum.with_index()
+|> Enum.split_with(fn {_v, i} -> rem(i, 2) == 0 end)
+|> Tuple.to_list()
+|> Enum.map(fn l -> Enum.map(l, fn {v, _i} -> v end) end)
+|> Enum.map(&Enum.sort/1)
+
+ans1 = Enum.zip(l1, l2)
+|> Enum.map(fn {v1, v2} -> abs(v1 - v2) end)
+|> Enum.sum()
+
+IO.puts(ans1)
+
+c2 = Enum.frequencies(l2)
+
+ans2 = Enum.map(l1, &(&1 * Map.get(c2, &1, 0))) |> Enum.sum()
+
+IO.puts(ans2)
-- 
cgit v1.2.3