feat(dict): add counterpart to dict:update!, dict:update

Author: SuperFola

Dict.ark

@@ -257,14 +257,14 @@
   _new }))
 
 # @brief Update a dictionary with (key, value) pairs from a second dictionary
-# @details The original dictionary is updated in place
+# @details The original dictionary is not modified
 # @param _D dictionary to update
 # @param _D2 second dictionary
 # =begin
 # (let data (dict "key" "value" "hello" "world"))
 # (let new (dict "key" "new value" 5 12))
-# (dict:update! data new)
-# (print data)  # {key: new value, hello: world, 5: 12}
+# (print (dict:update data new))  # {key: new value, hello: world, 5: 12}
+# (print data)  # {key: value, hello: world}
 # =end
 # @author https://github.com/SuperFola
 (let update! (fun (_D _D2) {
@@ -275,6 +275,27 @@
     (add _D _key (get _D2 _key))
     (set _i (+ 1 _i)) }) }))
 
+# @brief Update a dictionary with (key, value) pairs from a second dictionary
+# @details The original dictionary is updated in place
+# @param _D dictionary to update
+# @param _D2 second dictionary
+# =begin
+# (let data (dict "key" "value" "hello" "world"))
+# (let new (dict "key" "new value" 5 12))
+# (dict:update! data new)
+# (print data)  # {key: new value, hello: world, 5: 12}
+# =end
+# @author https://github.com/SuperFola
+(let update (fun (_D _D2) {
+  (mut _i 0)
+  (mut _copy (copy _D))
+  (let _keys (keys _D2))
+  (while (< _i (len _keys)) {
+    (let _key (@ _keys _i))
+    (add _copy _key (get _D2 _key))
+    (set _i (+ 1 _i)) })
+  _copy }))
+
 (let _valAsJson (fun (_val)
   (if (= "Dict" (type _val))
     (asJson _val)

tests/dict-tests.ark

@@ -197,4 +197,12 @@
     (test:eq (len d2) 2)
     (test:eq (dict:get d2 "a") 5)
     (test:eq (dict:get d2 "c") 3)
-    (test:eq (len empty) 0) }) })
+    (test:eq (len empty) 0) })
+
+  (test:case "update" {
+    (mut base_dict (dict
+      "a" 1
+      "b" 2
+      "c" 3))
+    (test:eq (dict:update base_dict (dict "a" 12 "d" 5)) (dict "a" 12 "b" 2 "c" 3 "d" 5))
+    (test:eq base_dict (dict "a" 1 "b" 2 "c" 3)) }) })