From af07c099e69e296aaeabeebcb3e0a304bcb24d1d Mon Sep 17 00:00:00 2001
From: Brett Snyder <bsnyder@digitalocean.com>
Date: Tue, 14 May 2019 18:20:32 -0500
Subject: map_dict:fold

---
 src/map_dict.gleam | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'src')

diff --git a/src/map_dict.gleam b/src/map_dict.gleam
index 6033866..c25378f 100644
--- a/src/map_dict.gleam
+++ b/src/map_dict.gleam
@@ -86,3 +86,11 @@ pub fn update(dict, key, f) {
   | Error(_) -> put(dict, key, f(Error(NotFound)))
   }
 }
+
+pub fn fold(dict, acc, f) {
+  let kvs = to_list(dict)
+  case kvs {
+    | [] -> acc
+    | [{k, v} | _] -> fold(delete(dict, k), f(k, v, acc), f)
+  }
+}
-- 
cgit v1.2.3