optimize map:fold recursion

Author: bsnyder788

gen/src/map_dict.erl

@@ -75,12 +75,15 @@ update(Dict, Key, F) ->
             put(Dict, Key, F({error, not_found}))
     end.
 
-fold(Dict, Acc, F) ->
-    Kvs = to_list(Dict),
-    case Kvs of
+do_fold(List, Acc, F) ->
+    case List of
         [] ->
             Acc;
 
-        [{K, V} | _] ->
-            fold(delete(Dict, K), F(K, V, Acc), F)
+        [{K, V} | Tail] ->
+            do_fold(Tail, F(K, V, Acc), F)
     end.
+
+fold(Dict, Acc, F) ->
+    Kvs = to_list(Dict),
+    do_fold(Kvs, Acc, F).

src/map_dict.gleam

@@ -87,10 +87,14 @@ pub fn update(dict, key, f) {
   }
 }
 
-pub fn fold(dict, acc, f) {
-  let kvs = to_list(dict)
-  case kvs {
+fn do_fold(list, acc, f) {
+  case list {
     | [] -> acc
-    | [{k, v} | _] -> fold(delete(dict, k), f(k, v, acc), f)
+    | [{k, v} | tail] -> do_fold(tail, f(k, v, acc), f)
   }
 }
+
+pub fn fold(dict, acc, f) {
+  let kvs = to_list(dict)
+  do_fold(kvs, acc, f)
+}