From 7a5f1983f9189422ad5e12afde11d11bec30a3f1 Mon Sep 17 00:00:00 2001
From: Tomasz Chojnacki <tomaszchojnacki2001@gmail.com>
Date: Fri, 22 Dec 2023 18:31:14 +0100
Subject: Solve part 1 of day 20

---
 aoc-2020-gleam/src/ext/listx.gleam | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'aoc-2020-gleam/src/ext/listx.gleam')

diff --git a/aoc-2020-gleam/src/ext/listx.gleam b/aoc-2020-gleam/src/ext/listx.gleam
index 2ca8648..0a3d7c3 100644
--- a/aoc-2020-gleam/src/ext/listx.gleam
+++ b/aoc-2020-gleam/src/ext/listx.gleam
@@ -1,6 +1,7 @@
 import gleam/pair
 import gleam/iterator as iter
 import gleam/result as res
+import gleam/dict.{type Dict}
 import ext/iteratorx as iterx
 
 pub fn count(list: List(a), satisfying predicate: fn(a) -> Bool) -> Int {
@@ -9,6 +10,12 @@ pub fn count(list: List(a), satisfying predicate: fn(a) -> Bool) -> Int {
   |> iterx.count(satisfying: predicate)
 }
 
+pub fn counts(list: List(a)) -> Dict(a, Int) {
+  list
+  |> iter.from_list
+  |> iterx.counts
+}
+
 fn set_helper(list: List(a), value: a, index: Int, counter: Int) -> List(a) {
   case list {
     [] -> []
-- 
cgit v1.2.3