Data commit

Task/Associative-array-Merging/00-META.yaml

@@ -0,0 +1,2 @@
+---
+from: http://rosettacode.org/wiki/Associative_array/Merging

Task/Associative-array-Merging/00-TASK.txt

@@ -0,0 +1,43 @@
+;Task:
+Define two associative arrays, where one represents the following "base" data:
+
+::::: {| class="wikitable"
+|+
+| '''Key''' || '''Value'''
+|-
+| "name" || "Rocket Skates"
+|-
+| "price" || 12.75
+|-
+| "color" || "yellow"
+|}
+
+And the other represents "update" data:
+
+::::: {| class="wikitable"
+|+
+| '''Key''' || '''Value'''
+|-
+| "price" || 15.25
+|-
+| "color" || "red"
+|-
+| "year" || 1974
+|}
+
+Merge these into a new associative array that contains every key found in either of the source ones.  Each key should map to the value in the second (update) table if that exists, or else to the value in the first (base) table.  If possible, do this in a way that does not mutate the original two associative arrays.  Obviously this should be done in a way that would work for any data, not just the specific data given here, but in this example the result should be:
+
+::::: {| class="wikitable"
+|+
+| '''Key''' || '''Value'''
+|-
+| "name" || "Rocket Skates"
+|-
+| "price" || 15.25
+|-
+| "color" || "red"
+|-
+| "year" || 1974
+|}
+<br><br>
+

Task/Associative-array-Merging/11l/associative-array-merging.11l

@@ -0,0 +1,7 @@
+V base = [‘name’ = ‘Rocket Skates’, ‘price’ = ‘12.75’, ‘color’ = ‘yellow’]
+V update = [‘price’ = ‘15.25’, ‘color’ = ‘red’, ‘year’ = ‘1974’]
+
+V result = copy(base)
+result.update(update)
+
+print(result)

Task/Associative-array-Merging/ALGOL-68/associative-array-merging.alg

@@ -0,0 +1,52 @@
+# associative array merging                                                  #
+
+# the modes allowed as associative array element values - change to suit     #
+MODE AAVALUE = UNION( STRING, INT, REAL );
+# the modes allowed as associative array element keys - change to suit       #
+MODE AAKEY   = STRING;
+# initial value for an array element                                         #
+AAVALUE init element value = "";
+
+# include the associative array code                                         #
+PR read "aArrayBase.a68" PR
+
+# adds or replaces all elements from b into a                     #
+PRIO UPDATE = 9;
+OP UPDATE = ( REF AARRAY a, REF AARRAY b )REF AARRAY:
+BEGIN
+    REF AAELEMENT e := FIRST b;
+    WHILE e ISNT nil element DO
+        a // key OF e := value OF e;
+        e := NEXT b
+    OD;
+    a
+END # UPDATE # ;
+
+# construct the associative arrays for the task                   #
+REF AARRAY a := INIT LOC AARRAY;
+REF AARRAY b := INIT LOC AARRAY;
+a // "name"  := "Rocket Skates";
+a // "price" := 12.75;
+a // "color" := "yellow";
+b // "price" := 15.25;
+b // "color" := "red";
+b // "year"  := 1974;
+# merge the arrays                                                #
+REF AARRAY c := INIT LOC AARRAY;
+c UPDATE a UPDATE b;
+# show the merged array                                           #
+REF AAELEMENT e := FIRST c;
+WHILE e ISNT nil element DO
+    print( ( key OF e
+           , ": "
+           , CASE value OF e
+               IN (STRING s): s
+                , (INT    i): whole( i, 0 )
+                , (REAL   r): fixed( r, -12, 2 )
+              OUT "????"
+             ESAC
+           , newline
+           )
+         );
+    e := NEXT c
+OD

Task/Associative-array-Merging/AWK/associative-array-merging.awk

@@ -0,0 +1,27 @@
+# syntax: GAWK -f ASSOCIATIVE_ARRAY_MERGING.AWK
+#
+# sorting:
+#   PROCINFO["sorted_in"] is used by GAWK
+#   SORTTYPE is used by Thompson Automation's TAWK
+#
+BEGIN {
+    PROCINFO["sorted_in"] = "@ind_str_asc" ; SORTTYPE = 1
+    arr1["name"] = "Rocket Skates"
+    arr1["price"] = "12.75"
+    arr1["color"] = "yellow"
+    show_array(arr1,"base")
+    arr2["price"] = "15.25"
+    arr2["color"] = "red"
+    arr2["year"] = "1974"
+    show_array(arr2,"update")
+    for (i in arr1) { arr3[i] = arr1[i] }
+    for (i in arr2) { arr3[i] = arr2[i] }
+    show_array(arr3,"merged")
+    exit(0)
+}
+function show_array(arr,desc,  i) {
+    printf("\n%s array\n",desc)
+    for (i in arr) {
+      printf("%-5s : %s\n",i,arr[i])
+    }
+}

Task/Associative-array-Merging/Ada/associative-array-merging.ada

@@ -0,0 +1,69 @@
+with Ada.Text_Io;
+with Ada.Containers.Indefinite_Ordered_Maps;
+
+procedure Merge_Maps is
+   use Ada.Text_Io;
+
+   type Key_Type   is new String;
+   type Value_Type is new String;
+
+   package Maps is
+     new Ada.Containers.Indefinite_Ordered_Maps (Key_Type     => Key_Type,
+                                                 Element_Type => Value_Type);
+   use Maps;
+
+   function Merge (Original : Map; Update : Map) return Map is
+      Result : Map    := Original;
+      Cur    : Cursor := Update.First;
+   begin
+      while Has_Element (Cur) loop
+         if Original.Contains (Key (Cur)) then
+            Result.Replace_Element (Result.Find (Key (Cur)),
+                                    Element (Cur));
+         else
+            Result.Insert (Key (Cur), Element (Cur));
+         end if;
+         Next (Cur);
+      end loop;
+      return Result;
+   end Merge;
+
+   procedure Put_Map (M : Map) is
+      Cur : Cursor := M.First;
+   begin
+      while Has_Element (Cur) loop
+         Put (String (Key (Cur)));
+         Set_Col (12);
+         Put (String (Element (Cur)));
+         New_Line;
+         Next (Cur);
+      end loop;
+   end Put_Map;
+
+   Original : Map;
+   Update   : Map;
+   Result   : Map;
+begin
+   Original.Insert ("name", "Rocket Skates");
+   Original.Insert ("price", "12.75");
+   Original.Insert ("color", "yellow");
+
+   Update.Insert ("price", "15.25");
+   Update.Insert ("color", "red");
+   Update.Insert ("year", "1974");
+
+   Result := Merge (Original, Update);
+
+   Put_Line ("Original:");
+   Put_Map (Original);
+   New_Line;
+
+   Put_Line ("Update:");
+   Put_Map (Update);
+   New_Line;
+
+   Put_Line ("Result of merge:");
+   Put_Map (Result);
+   New_Line;
+
+end Merge_Maps;

Task/Associative-array-Merging/AppleScript/associative-array-merging-1.applescript

@@ -0,0 +1,5 @@
+set baseRecord to {|name|:"Rocket Skates", price:12.75, |color|:"yellow"}
+set updateRecord to {price:15.25, |color|:"red", |year|:1974}
+
+set mergedRecord to updateRecord & baseRecord
+return mergedRecord

Task/Associative-array-Merging/AppleScript/associative-array-merging-2.applescript

@@ -0,0 +1 @@
+{price:15.25, |color|:"red", |year|:1974, |name|:"Rocket Skates"}

Task/Associative-array-Merging/Arturo/associative-array-merging.arturo

@@ -0,0 +1,4 @@
+details: #[name: "Rocket Skates" price: 12.75 colour: 'yellow]
+newDetails: extend details #[price: 15.25 colour: 'red year: 1974]
+
+print newDetails

Task/Associative-array-Merging/AutoHotkey/associative-array-merging-1.ahk

@@ -0,0 +1,8 @@
+merge(base, update){
+	Merged  := {}
+	for k, v in base
+		Merged[k] := v
+	for k, v in update
+		Merged[k] := v
+	return Merged
+}

Task/Associative-array-Merging/AutoHotkey/associative-array-merging-2.ahk

@@ -0,0 +1,6 @@
+base := {"name":"Rocket Skates", "price":12.75, "color":"yellow"}
+update := {"price":15.25, "color":"red", "year":1974}
+Merged := merge(base, update)
+for k, v in Merged
+	result .= k " : " v "`n"
+MsgBox % result

Task/Associative-array-Merging/B4X/associative-array-merging.b4x

@@ -0,0 +1,10 @@
+Dim m1 As Map = CreateMap("name": "Rocket Skates", "price": 12.75, "color": "yellow")
+Dim m2 As Map = CreateMap("price": 15.25, "color": "red", "year": 1974)
+Dim merged As Map
+merged.Initialize
+For Each m As Map In Array(m1, m2)
+	For Each key As Object In m.Keys
+		merged.Put(key, m.Get(key))
+	Next
+Next
+Log(merged)

Task/Associative-array-Merging/BaCon/associative-array-merging.bacon

@@ -0,0 +1,27 @@
+DECLARE base$, update$, merge$ ASSOC STRING
+
+base$("name") = "Rocket Skates"
+base$("price") = "12.75"
+base$("color") = "yellow"
+
+PRINT "Base array"
+FOR x$ IN OBTAIN$(base$)
+    PRINT x$, " : ", base$(x$)
+NEXT
+
+update$("price") = "15.25"
+update$("color") = "red"
+update$("year") = "1974"
+
+PRINT NL$, "Update array"
+FOR x$ IN OBTAIN$(update$)
+    PRINT x$, " : ", update$(x$)
+NEXT
+
+merge$() = base$()
+merge$() = update$()
+
+PRINT NL$, "Merged array"
+FOR x$ IN OBTAIN$(merge$)
+    PRINT x$, " : ", merge$(x$)
+NEXT

Task/Associative-array-Merging/C++/associative-array-merging.cpp

@@ -0,0 +1,28 @@
+#include <iostream>
+#include <string>
+#include <map>
+
+template<typename map_type>
+map_type merge(const map_type& original, const map_type& update) {
+    map_type result(update);
+    result.insert(original.begin(), original.end());
+    return result;
+}
+
+int main() {
+    typedef std::map<std::string, std::string> map;
+    map original{
+        {"name", "Rocket Skates"},
+        {"price", "12.75"},
+        {"color", "yellow"}
+    };
+    map update{
+        {"price", "15.25"},
+        {"color", "red"},
+        {"year", "1974"}
+    };
+    map merged(merge(original, update));
+    for (auto&& i : merged)
+        std::cout << "key: " << i.first << ", value: " << i.second << '\n';
+    return 0;
+}

Task/Associative-array-Merging/C-sharp/associative-array-merging.cs

@@ -0,0 +1,26 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+
+public class Program
+{
+    public static void Main() {
+        var baseData = new Dictionary<string, object> {
+            ["name"] = "Rocket Skates",
+            ["price"] = 12.75,
+            ["color"] = "yellow"
+        };
+        var updateData = new Dictionary<string, object> {
+            ["price"] = 15.25,
+            ["color"] = "red",
+            ["year"] = 1974
+        };
+        var mergedData = new Dictionary<string, object>();
+        foreach (var entry in baseData.Concat(updateData)) {
+            mergedData[entry.Key] = entry.Value;
+        }
+        foreach (var entry in mergedData) {
+            Console.WriteLine(entry);
+        }
+   }
+}

Task/Associative-array-Merging/Clojure/associative-array-merging.clj

@@ -0,0 +1,9 @@
+(defn update-map [base update]
+  (merge base update))
+
+  (update-map {"name"  "Rocket Skates"
+               "price" "12.75"
+               "color" "yellow"}
+              {"price" "15.25"
+               "color" "red"
+               "year"  "1974"})

Task/Associative-array-Merging/Common-Lisp/associative-array-merging-1.lisp

@@ -0,0 +1 @@
+(append list2 list1)

Task/Associative-array-Merging/Common-Lisp/associative-array-merging-2.lisp

@@ -0,0 +1,15 @@
+(defun merge-alists (alist1 alist2)
+  (nconc
+   (loop :for pair1 :in alist1
+         :for pair2 := (assoc (car pair1) alist2)
+         :do (setf alist2 (remove pair2 alist2))
+         :collect (or pair2 pair1))
+   alist2))
+
+(defun merge-plists (plist1 plist2)
+  (let ((res '()))
+    (loop :for (key val) :on plist1 :by #'cddr
+          :do (setf (getf res key) val))
+    (loop :for (key val) :on plist2 :by #'cddr
+          :do (setf (getf res key) val))
+    res))

Task/Associative-array-Merging/Crystal/associative-array-merging.crystal

@@ -0,0 +1,4 @@
+base = {"name" => "Rocket Skates", "price" => 12.75, "color" => "yellow"}
+update = { "price" => 15.25, "color" => "red", "year" => 1974 }
+
+puts base.merge(update)

Task/Associative-array-Merging/Dart/associative-array-merging.dart

@@ -0,0 +1,21 @@
+main() {
+	var base = {
+		'name':   'Rocket Skates',
+		'price':  12.75,
+		'color':  'yellow'
+	};
+
+	var newData = {
+		'price': 15.25,
+		'color': 'red',
+		'year':  1974
+	};
+
+	var updated = Map.from( base ) // create new Map from base
+		..addAll( newData ); // use cascade operator to add all new data
+	
+	assert( base.toString()    == '{name: Rocket Skates, price: 12.75, color: yellow}' );
+	assert( updated.toString() == '{name: Rocket Skates, price: 15.25, color: red, year: 1974}');
+
+
+}

Task/Associative-array-Merging/Delphi/associative-array-merging.delphi

@@ -0,0 +1,41 @@
+program Associative_arrayMerging;
+
+{$APPTYPE CONSOLE}
+
+uses
+  System.Generics.Collections;
+
+type
+  TData = TDictionary<string, Variant>;
+
+var
+  baseData, updateData, mergedData: TData;
+  entry: string;
+
+begin
+  baseData := TData.Create();
+  baseData.Add('name', 'Rocket Skates');
+  baseData.Add('price', 12.75);
+  baseData.Add('color', 'yellow');
+
+  updateData := TData.Create();
+  updateData.Add('price', 15.25);
+  updateData.Add('color', 'red');
+  updateData.Add('year', 1974);
+
+  mergedData := TData.Create();
+  for entry in baseData.Keys do
+    mergedData.AddOrSetValue(entry, baseData[entry]);
+
+  for entry in updateData.Keys do
+    mergedData.AddOrSetValue(entry, updateData[entry]);
+
+  for entry in mergedData.Keys do
+    Writeln(entry, ' ', mergedData[entry]);
+
+  mergedData.Free;
+  updateData.Free;
+  baseData.Free;
+
+  Readln;
+end.

Task/Associative-array-Merging/Elixir/associative-array-merging-1.elixir

@@ -0,0 +1,4 @@
+base = %{name: "Rocket Skates", price: 12.75, color: "yellow"}
+update = %{price: 15.25, color: "red", year: 1974}
+result = Map.merge(base, update)
+IO.inspect(result)

Task/Associative-array-Merging/Elixir/associative-array-merging-2.elixir

@@ -0,0 +1 @@
+base = %{"name" => "Rocket Skates", "price" => 12.75, "color" => "yellow"}

Task/Associative-array-Merging/F-Sharp/associative-array-merging.fs

@@ -0,0 +1,5 @@
+type N = |Price of float|Name of string|Year of int|Colour of string
+let n=Map<string,N>[("name",Name("Rocket Skates"));("price",Price(12.75));("colour",Colour("yellow"))]
+let g=Map<string,N>[("price",Price(15.25));("colour",Colour("red"));("year",Year(1974))]
+let ng=(Map.toList n)@(Map.toList g)|>Map.ofList
+printfn "%A" ng

Task/Associative-array-Merging/Factor/associative-array-merging.factor

@@ -0,0 +1,5 @@
+USING: assocs prettyprint ;
+
+{ { "name" "Rocket Skates" } { "price" 12.75 } { "color" "yellow" } }
+{ { "price" 15.25 } { "color" "red" } { "year" 1974 } }
+assoc-union .

Task/Associative-array-Merging/FutureBasic/associative-array-merging.basic

@@ -0,0 +1,13 @@
+void local fn DoIt
+  CFDictionaryRef base = @{@"name" :@"Rocket Skates", @"price":@12.75, @"color":@"yellow"}
+  CFDictionaryRef update = @{@"price":@15.25, @"color":@"red", @"year":@1974}
+
+  CFMutableDictionaryRef merged = fn MutableDictionaryWithDictionary( base )
+  MutableDictionaryAddEntriesFromDictionary( merged, update )
+
+  print merged
+end fn
+
+fn DoIt
+
+HandleEvents

Task/Associative-array-Merging/Go/associative-array-merging.go

@@ -0,0 +1,23 @@
+package main
+
+import "fmt"
+
+type assoc map[string]interface{}
+
+func merge(base, update assoc) assoc {
+    result := make(assoc)
+    for k, v := range base {
+        result[k] = v
+    }
+    for k, v := range update {
+        result[k] = v
+    }
+    return result
+}
+
+func main() {
+    base := assoc{"name": "Rocket Skates", "price": 12.75, "color": "yellow"}
+    update := assoc{"price": 15.25, "color": "red", "year": 1974}
+    result := merge(base, update)
+    fmt.Println(result)
+}

Task/Associative-array-Merging/Haskell/associative-array-merging.hs

@@ -0,0 +1,17 @@
+data Item = Item
+  { name :: Maybe String
+  , price :: Maybe Float
+  , color :: Maybe String
+  , year :: Maybe Int
+  } deriving (Show)
+
+itemFromMerge :: Item -> Item -> Item
+itemFromMerge (Item n p c y) (Item n1 p1 c1 y1) =
+  Item (maybe n pure n1) (maybe p pure p1) (maybe c pure c1) (maybe y pure y1)
+
+main :: IO ()
+main =
+  print $
+  itemFromMerge
+    (Item (Just "Rocket Skates") (Just 12.75) (Just "yellow") Nothing)
+    (Item Nothing (Just 15.25) (Just "red") (Just 1974))

Task/Associative-array-Merging/Icon/associative-array-merging.icon

@@ -0,0 +1,22 @@
+procedure main()
+    local base, update, master, f, k
+
+    base := table()
+    base["name"] := "Rocket Skates"
+    base["price"] := 12.75
+    base["color"] := "yellow"
+
+    update := table()
+    update["price"] := 15.25
+    update["color"] := "red"
+    update["year"] := 1974
+
+    master := table()
+    every k := key((f := base | update)) do {
+        master[k] := f[k]
+    }
+
+    every k := key(master) do {
+        write(k, " = ", master[k])
+    }
+end

Task/Associative-array-Merging/J/associative-array-merging.j

@@ -0,0 +1,6 @@
+merge=: ,.    NB. use: update merge original
+compress=: #"1~ ~:@:keys
+keys=: {.
+values=: {:
+get=: [: > ((i.~ keys)~ <)~ { values@:]   NB. key get (associative array)
+pair=: [: |: <;._2;._2

Task/Associative-array-Merging/Java/associative-array-merging-1.java

@@ -0,0 +1,2 @@
+import java.util.LinkedHashMap;
+import java.util.Map;

Task/Associative-array-Merging/Java/associative-array-merging-2.java

@@ -0,0 +1,13 @@
+Map<String, String> mapA = new LinkedHashMap<>();
+mapA.put("name", "Rocket Skates");
+mapA.put("price", "12.75");
+mapA.put("color", "yellow");
+
+Map<String, String> mapB = new LinkedHashMap<>();
+mapB.put("price", "15.25");
+mapB.put("color", "red");
+mapB.put("year", "1974");
+
+Map<String, String> mapC = new LinkedHashMap<>();
+mapC.putAll(mapA);
+mapC.putAll(mapB);

Task/Associative-array-Merging/Java/associative-array-merging-3.java

@@ -0,0 +1,8 @@
+for(Map.Entry<String, String> entry : mapA.entrySet())
+    System.out.printf("%-20s%s%n", entry.getKey(), entry.getValue());
+
+for(Map.Entry<String, String> entry : mapB.entrySet())
+    System.out.printf("%-20s%s%n", entry.getKey(), entry.getValue());
+
+for(Map.Entry<String, String> entry : mapC.entrySet())
+    System.out.printf("%-20s%s%n", entry.getKey(), entry.getValue());

Task/Associative-array-Merging/Java/associative-array-merging-4.java

@@ -0,0 +1,13 @@
+Map<String, Object> mapA = new LinkedHashMap<>();
+mapA.put("name", "Rocket Skates");
+mapA.put("price", 12.75);
+mapA.put("color", "yellow");
+
+Map<String, Object> mapB = new LinkedHashMap<>();
+mapB.put("price", 15.25);
+mapB.put("color", "red");
+mapB.put("year", 1974);
+
+Map<String, Object> mapC = new LinkedHashMap<>();
+mapC.putAll(mapA);
+mapC.putAll(mapB);

Task/Associative-array-Merging/JavaScript/associative-array-merging.js

@@ -0,0 +1,18 @@
+(() => {
+    'use strict';
+
+    console.log(JSON.stringify(
+        Object.assign({}, // Fresh dictionary.
+            { // Base.
+                "name": "Rocket Skates",
+                "price": 12.75,
+                "color": "yellow"
+            }, { // Update.
+                "price": 15.25,
+                "color": "red",
+                "year": 1974
+            }
+        ),
+        null, 2
+    ))
+})();

Task/Associative-array-Merging/Kotlin/associative-array-merging.kotlin

@@ -0,0 +1,19 @@
+fun main() {
+    val base = HashMap<String,String>()
+    val update =  HashMap<String,String>()
+
+    base["name"] = "Rocket Skates"
+    base["price"] = "12.75"
+    base["color"] = "yellow"
+
+    update["price"] = "15.25"
+    update["color"] = "red"
+    update["year"] = "1974"
+
+    val merged = HashMap(base)
+    merged.putAll(update)
+
+    println("base: $base")
+    println("update: $update")
+    println("merged: $merged")
+}

Task/Associative-array-Merging/Lua/associative-array-merging.lua

@@ -0,0 +1,18 @@
+base = {name="Rocket Skates", price=12.75, color="yellow"}
+update = {price=15.25, color="red", year=1974}
+
+--[[ clone the base data ]]--
+result = {}
+for key,val in pairs(base) do
+    result[key] = val
+end
+
+--[[ copy in the update data ]]--
+for key,val in pairs(update) do
+    result[key] = val
+end
+
+--[[ print the result ]]--
+for key,val in pairs(result) do
+    print(string.format("%s: %s", key, val))
+end

Task/Associative-array-Merging/Mathematica/associative-array-merging.math

@@ -0,0 +1,3 @@
+a1 = <|"name" -> "Rocket Skates", "price" -> 12.75, "color" -> "yellow"|>;
+a2 = <|"price" -> 15.25, "color" -> "red", "year" -> 1974|>;
+Merge[{a1, a2}, Last]

Task/Associative-array-Merging/MiniScript/associative-array-merging.mini

@@ -0,0 +1,6 @@
+base = {"name":"Rocket Skates", "price":12.75, "color":"yellow"}
+update = {"price":15.25, "color":"red", "year":1974}
+
+result = base + update
+
+print result

Task/Associative-array-Merging/Nim/associative-array-merging.nim

@@ -0,0 +1,10 @@
+import tables
+
+let t1 = {"name": "Rocket Skates", "price": "12.75", "color": "yellow"}.toTable
+let t2 = {"price": "15.25", "color": "red", "year": "1974"}.toTable
+
+var t3 = t1   # Makes a copy.
+for key, value in t2.pairs:
+  t3[key] = value
+
+echo t3

Task/Associative-array-Merging/OCaml/associative-array-merging-1.ocaml

@@ -0,0 +1,16 @@
+type ty =
+    | TFloat of float
+    | TInt of int
+    | TString of string
+
+type key = string
+type assoc = string * ty
+
+let string_of_ty : ty -> string = function
+    | TFloat x -> string_of_float x
+    | TInt i -> string_of_int i
+    | TString s -> s
+
+let print_pair key el =
+    Printf.printf "%s: %s\n" key (string_of_ty el)
+;;

Task/Associative-array-Merging/OCaml/associative-array-merging-2.ocaml

@@ -0,0 +1,22 @@
+let l1 : assoc list = [
+    ("name", TString "Rocket Skates");
+    ("price", TFloat 12.75);
+    ("color", TString "yellow")
+] ;;
+
+let l2 : assoc list = [
+    ("price", TFloat 15.25);
+    ("color", TString "red");
+    ("year",  TInt 1974)
+] ;;
+
+let rec merge_assoc_list (base_list : assoc list) (add_list : assoc list) : assoc list =
+    List.fold_left
+        (fun l (key, val_) ->
+            (key, val_) :: (List.remove_assoc key l)
+        )
+        base_list
+        add_list
+;;
+
+let l' = merge_assoc_list l1 l2 ;;

Task/Associative-array-Merging/OCaml/associative-array-merging-3.ocaml

@@ -0,0 +1,25 @@
+module StringMap = Map.Make(String) ;;
+
+let print_map = StringMap.iter print_pair ;;
+
+let map_merge (base : ty StringMap.t) (add : ty StringMap.t) : ty StringMap.t =
+    StringMap.union (fun key v1 v2 -> Some v2) base add
+;;
+
+let m1 = StringMap.(
+    empty
+    |> add "name" (TString "Rocket Skates")
+    |> add "price" (TFloat 12.75)
+    |> add "color" (TString "yellow")
+) ;;
+
+let m2 = StringMap.(
+    empty
+    |> add "price" (TFloat 15.25)
+    |> add "color" (TString "red")
+    |> add "year" (TInt 1974)
+) ;;
+
+let m' = map_merge m1 m2 ;;
+
+print_map m' ;;

Task/Associative-array-Merging/OCaml/associative-array-merging-4.ocaml

@@ -0,0 +1,20 @@
+(* Updates the base table with the bindings from add *)
+let hash_merge (base : (string, ty) Hashtbl.t) (add : (string, ty) Hashtbl.t) : unit =
+    Hashtbl.iter (Hashtbl.replace base) add
+
+let print_hashtbl t =
+    Hashtbl.iter print_pair t
+
+let h1 : (string, ty) Hashtbl.t = Hashtbl.create 10 ;;
+Hashtbl.add h1 "name" (TString "Rocket Skates") ;;
+Hashtbl.add h1 "price" (TFloat 12.75) ;;
+Hashtbl.add h1 "color" (TString "yellow") ;;
+
+let h2 : (string, ty) Hashtbl.t = Hashtbl.create 10 ;;
+Hashtbl.add h2 "price" (TFloat 15.25) ;;
+Hashtbl.add h2 "color" (TString "red") ;;
+Hashtbl.add h2 "year" (TInt 1974) ;;
+
+hash_merge h1 h2 ;;
+
+print_hashtbl h1 ;;

Task/Associative-array-Merging/Objective-C/associative-array-merging.m

@@ -0,0 +1,14 @@
+#import <Foundation/Foundation.h>
+
+int main(void) {
+  @autoreleasepool {
+    NSDictionary *base = @{@"name": @"Rocket Skates", @"price": @12.75, @"color": @"yellow"};
+    NSDictionary *update = @{@"price": @15.25, @"color": @"red", @"year": @1974};
+
+    NSMutableDictionary *result = [[NSMutableDictionary alloc] initWithDictionary:base];
+    [result addEntriesFromDictionary:update];
+
+    NSLog(@"%@", result);
+  }
+  return 0;
+}

Task/Associative-array-Merging/Ol/associative-array-merging.ol

@@ -0,0 +1,17 @@
+(define a1 {
+   'name    "Rocket Skates"
+   'price   12.75
+   'color   "yellow"
+})
+
+(define a2 {
+   'price   15.25
+   'color   "red"
+   'year    1974
+})
+
+(print "a1: " a1)
+(print "a2: " a2)
+
+(define (collide a b) b) ; will use new key value
+(print "merged a1 a2: " (ff-union collide a1 a2))

Task/Associative-array-Merging/PHP/associative-array-merging-1.php

@@ -0,0 +1,7 @@
+<?
+$base = array("name" => "Rocket Skates", "price" => 12.75, "color" => "yellow");
+$update = array("price" => 15.25, "color" => "red", "year" => 1974);
+
+$result = $update + $base; // Notice that the order is reversed
+print_r($result);
+?>

Task/Associative-array-Merging/PHP/associative-array-merging-2.php

@@ -0,0 +1,7 @@
+<?
+$base = array("name" => "Rocket Skates", "price" => 12.75, "color" => "yellow");
+$update = array("price" => 15.25, "color" => "red", "year" => 1974);
+
+$result = array_merge($base, $update);
+print_r($result);
+?>

Task/Associative-array-Merging/Perl/associative-array-merging.pl

@@ -0,0 +1,15 @@
+use strict;
+use warnings;
+
+my %base = ("name" => "Rocket Skates", "price" => 12.75, "color" => "yellow");
+my %more = ("price" => 15.25, "color" => "red", "year" => 1974);
+
+print "Update\n";
+my %update = (%base, %more);
+printf "%-7s %s\n", $_, $update{$_} for sort keys %update;
+
+print "\nMerge\n";
+my %merge;
+$merge{$_} = [$base{$_}] for keys %base;
+push @{$merge{$_}}, $more{$_} for keys %more;
+printf "%-7s %s\n", $_, join ', ', @{$merge{$_}} for sort keys %merge;

Task/Associative-array-Merging/Phix/associative-array-merging.phix

@@ -0,0 +1,10 @@
+(phixonline)-->
+ <span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
+ <span style="color: #004080;">integer</span> <span style="color: #000000;">d1</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">new_dict</span><span style="color: #0000FF;">({{</span><span style="color: #008000;">"name"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"Rocket Skates"</span><span style="color: #0000FF;">},{</span><span style="color: #008000;">"price"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">12.75</span><span style="color: #0000FF;">},{</span><span style="color: #008000;">"color"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"yellow"</span><span style="color: #0000FF;">}}),</span>
+         <span style="color: #000000;">d2</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">new_dict</span><span style="color: #0000FF;">({{</span><span style="color: #008000;">"price"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">15.25</span><span style="color: #0000FF;">},{</span><span style="color: #008000;">"color"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"red"</span><span style="color: #0000FF;">},{</span><span style="color: #008000;">"year"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">1974</span><span style="color: #0000FF;">}}),</span>
+         <span style="color: #000000;">d3</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">new_dict</span><span style="color: #0000FF;">(</span><span style="color: #000000;">d1</span><span style="color: #0000FF;">)</span>
+ <span style="color: #008080;">function</span> <span style="color: #000000;">merger</span><span style="color: #0000FF;">(</span><span style="color: #004080;">object</span> <span style="color: #000000;">key</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">data</span><span style="color: #0000FF;">,</span> <span style="color: #000080;font-style:italic;">/*user_data*/</span><span style="color: #0000FF;">)</span> <span style="color: #7060A8;">setd</span><span style="color: #0000FF;">(</span><span style="color: #000000;">key</span><span style="color: #0000FF;">,</span><span style="color: #000000;">data</span><span style="color: #0000FF;">,</span><span style="color: #000000;">d3</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">return</span> <span style="color: #000000;">1</span> <span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
+ <span style="color: #7060A8;">traverse_dict</span><span style="color: #0000FF;">(</span><span style="color: #000000;">merger</span><span style="color: #0000FF;">,</span><span style="color: #004600;">NULL</span><span style="color: #0000FF;">,</span><span style="color: #000000;">d2</span><span style="color: #0000FF;">)</span>
+ <span style="color: #008080;">include</span> <span style="color: #000000;">builtins</span><span style="color: #0000FF;">/</span><span style="color: #000000;">map</span><span style="color: #0000FF;">.</span><span style="color: #000000;">e</span>
+ <span style="color: #0000FF;">?</span><span style="color: #000000;">pairs</span><span style="color: #0000FF;">(</span><span style="color: #000000;">d3</span><span style="color: #0000FF;">)</span>
+<!--

Task/Associative-array-Merging/Phixmonti/associative-array-merging.phixmonti

@@ -0,0 +1,46 @@
+include ..\Utilitys.pmt
+
+def scand   /# dict key -- dict n #/
+    0 var flag
+    var ikey
+    len for
+        var i
+        i 1 2 tolist sget
+        ikey == if i var flag exitfor endif
+    endfor
+    flag
+enddef
+
+
+def getd    /# dict key -- dict data #/
+    scand
+    dup if get 2 get nip else drop "Unfound" endif
+enddef
+
+
+def setd    /# dict ( key data ) -- dict #/
+    1 get rot swap
+    scand
+    rot swap
+    dup if set else put endif
+enddef
+
+/# ---------- MAIN ---------- #/
+
+( ( "name" "Rocket Skates" )
+  ( "price" 12.75 )
+  ( "color" "yellow" ) )
+
+dup
+
+( ( "price" 15.25 )
+  ( "color" "red" )
+  ( "year" 1974 ) )
+
+len for
+    get rot swap setd swap
+endfor
+
+swap
+
+pstack

Task/Associative-array-Merging/PureBasic/associative-array-merging.basic

@@ -0,0 +1,21 @@
+NewMap m1.s()
+NewMap m2.s()
+NewMap m3.s()
+
+m1("name")="Rocket Skates"
+m1("price")="12.75"
+m1("color")="yellow"
+
+m2("price")="15.25"
+m2("color")="red"
+m2("year")="1974"
+
+CopyMap(m1(),m3())
+
+ForEach m2()
+  m3(MapKey(m2()))=m2()
+Next
+
+ForEach m3()
+  Debug MapKey(m3())+" : "+m3()
+Next

Task/Associative-array-Merging/Python/associative-array-merging-1.py

@@ -0,0 +1,6 @@
+base = {"name":"Rocket Skates", "price":12.75, "color":"yellow"}
+update = {"price":15.25, "color":"red", "year":1974}
+
+result = {**base, **update}
+
+print(result)

Task/Associative-array-Merging/Python/associative-array-merging-2.py

@@ -0,0 +1,7 @@
+base = {"name":"Rocket Skates", "price":12.75, "color":"yellow"}
+update = {"price":15.25, "color":"red", "year":1974}
+
+result = base.copy()
+result.update(update)
+
+print(result)

Task/Associative-array-Merging/Python/associative-array-merging-3.py

@@ -0,0 +1,8 @@
+Python 3.9.0 (tags/v3.9.0:9cf6752, Oct  5 2020, 15:34:40) [MSC v.1927 64 bit (AMD64)] on win32
+Type "help", "copyright", "credits" or "license()" for more information.
+>>> base = {"name":"Rocket Skates", "price":12.75, "color":"yellow"}
+>>> update = {"price":15.25, "color":"red", "year":1974}
+>>> result = base | update
+>>> result
+{'name': 'Rocket Skates', 'price': 15.25, 'color': 'red', 'year': 1974}
+>>>

Task/Associative-array-Merging/REXX/associative-array-merging.rexx

@@ -0,0 +1,33 @@
+/*REXX program merges two associative arrays  (requiring an external list of indices).  */
+$.=                                              /*define default value(s) for arrays.  */
+@.wAAn= 21;      @.wKey= 7;       @.wVal= 7      /*max widths of:  AAname, keys, values.*/
+call defAA  'base',     "name Rocket Skates",   'price 12.75',   "color yellow"
+call defAA  'update',   "price 15.25",          "color red",     'year 1974'
+call show   'base'
+call show   'update'
+call show   'new'
+exit                                             /*stick a fork in it,  we're all done. */
+/*──────────────────────────────────────────────────────────────────────────────────────*/
+defAA: procedure expose $. @.;  parse arg AAn;      new= 'new'   /*get AA name; set NEW.*/
+         do j=2  to arg();   parse value arg(j)  with  key val   /*obtain key and value.*/
+         $.AAn.key= val                          /*assign a  value  to a  key for AAn.  */
+         if wordpos(key, $.AAN.?keys)==0  then $.AAn.?keys= $.AAn.?keys key
+                                                 /* [↑]  add to key list if not in list.*/
+         $.new.key= val                          /*assign a  value  to a  key for "new".*/
+         if wordpos(key, $.new.?keys)==0  then $.new.?keys= $.new.?keys key
+                                                 /* [↑]  add to key list if not in list.*/
+         @.wKey= max(@.wKey, length(key) )       /*find max width of a name of a  key.  */
+         @.wVal= max(@.wVal, length(val) )       /*  "   "    "    " "   "   " "  value.*/
+         @.wAA = max(@.wAAn, length(AAn) )       /*  "   "    "    " "   "   "    array.*/
+         end   /*j*/
+       return
+/*──────────────────────────────────────────────────────────────────────────────────────*/
+show:  procedure expose $. @.;  parse arg AAn;      say;     _= '═'    /*set title char.*/
+         do j=1  for words($.AAn.?keys)                                /*process keys.  */
+         if j==1  then say  center('associate array', @.wAAn,     _)  ,
+                            center("key"            , @.wKey,     _)  ,
+                            center('value'          , @.wVal + 2, _)
+         key= word($.AAn.?keys, j)                              /*get the name of a key.*/
+         say center(AAn, @.wAAn)  right(key, @.wKey)  $.AAn.key /*show some information.*/
+         end   /*j*/
+       return

Task/Associative-array-Merging/Racket/associative-array-merging.rkt

@@ -0,0 +1,16 @@
+#lang racket/base
+
+(require racket/hash)
+
+(module+ test
+  (require rackunit)
+
+  (define base-data (hash "name"	"Rocket Skates"
+                          "price"	12.75
+                          "color"	"yellow"))
+
+  (define update-data (hash "price"	15.25
+                            "color"	"red"
+                            "year"	1974))
+
+  (hash-union base-data update-data #:combine (λ (a b) b)))

Task/Associative-array-Merging/Raku/associative-array-merging.raku

@@ -0,0 +1,16 @@
+# Show original hashes
+say my %base   = :name('Rocket Skates'), :price<12.75>, :color<yellow>;
+say my %update = :price<15.25>, :color<red>, :year<1974>;
+
+# Need to assign to anonymous hash to get the desired results and avoid mutating
+# TIMTOWTDI
+say "\nUpdate:\n", join "\n", sort %=%base, %update;
+# Same
+say "\nUpdate:\n", {%base, %update}.sort.join: "\n";
+
+say "\nMerge:\n", join "\n", sort ((%=%base).push: %update)».join: ', ';
+# Same
+say "\nMerge:\n", ({%base}.push: %update)».join(', ').sort.join: "\n";
+
+# Demonstrate unmutated hashes
+say "\n", %base, "\n", %update;

Task/Associative-array-Merging/Ring/associative-array-merging.ring

@@ -0,0 +1,23 @@
+load "stdlib.ring"
+
+list1 = [:name = "Rocket Skates", :price = 12.75, :color = "yellow"]
+list2 = [:price = 15.25, :color = "red", :year = 1974]
+
+for n = 1 to len(list2)
+    flag = 0
+    for m = 1 to len(list1)
+        if list2[n][1] = list1[m][1]
+           flag = 1
+           del(list1,m)
+           add(list1,[list2[n][1],list2[n][2]])
+           exit
+        ok
+    next
+    if flag = 0
+       add(list1,[list2[n][1],list2[n][2]])
+    ok
+next
+
+for n = 1 to len(list1)
+    see list1[n][1] + " = " + list1[n][2] + nl
+next

Task/Associative-array-Merging/Ruby/associative-array-merging.rb

@@ -0,0 +1,5 @@
+base = {"name" => "Rocket Skates", "price" => 12.75, "color" => "yellow"}
+update = {"price" => 15.25, "color" => "red", "year" => 1974}
+
+result = base.merge(update)
+p result

Task/Associative-array-Merging/Rust/associative-array-merging.rust

@@ -0,0 +1,17 @@
+use std::collections::HashMap;
+
+fn main() {
+    let mut original = HashMap::new();
+    original.insert("name", "Rocket Skates");
+    original.insert("price", "12.75");
+    original.insert("color", "yellow");
+
+    let mut update = HashMap::new();
+    update.insert("price", "15.25");
+    update.insert("color", "red");
+    update.insert("year", "1974");
+
+    original.extend(&update);
+
+    println!("{:#?}", original);
+}

Task/Associative-array-Merging/Scheme/associative-array-merging-1.ss

@@ -0,0 +1,20 @@
+; Merge alists by appending the update list onto the front of the base list.
+; (The extra '() is so that append doesn't co-opt the second list.)
+(define append-alists
+  (lambda (base update)
+    (append update base '())))
+
+; Test...
+(printf "~%Merge using append procedure...~%")
+; The original base and update alists.
+(let ((base '(("name" . "Rocket Skates") ("price" . 12.75) ("color" . "yellow" )))
+      (update '(("price" . 15.25) ("color" . "red") ("year" . 1974))))
+  ; Merge by appending the update list onto the front of the base list.
+  (let ((merged (append-alists base update)))
+    ; Show that everything worked.
+    (printf "Merged alist:~%~s~%" merged)
+    (printf "Values from merged alist:~%")
+    (let loop ((keys '("name" "price" "color" "year")))
+      (unless (null? keys)
+        (printf "~s -> ~s~%" (car keys) (cdr (assoc (car keys) merged)))
+        (loop (cdr keys))))))

Task/Associative-array-Merging/Scheme/associative-array-merging-2.ss

@@ -0,0 +1,27 @@
+; Merge the given alists.  Prefer the items from the "update" alist.
+; Returns a new list; the argument lists are not modified.
+(define merge-alists
+  (lambda (base update)
+    (let ((merged (list-copy update))
+          (remains (list-copy base)))
+      (let loop ((shadowing merged))
+        (if (null? shadowing)
+          (append merged remains)
+          (begin (set! remains (remp (lambda (pair) (equal? (car pair) (caar shadowing)))
+                                     remains))
+                 (loop (cdr shadowing))))))))
+
+; Test...
+(printf "~%Merge using defined merge-alists procedure...~%")
+; The original base and update alists.
+(let ((base '(("name" . "Rocket Skates") ("price" . 12.75) ("color" . "yellow" )))
+      (update '(("price" . 15.25) ("color" . "red") ("year" . 1974))))
+  ; Merge using the defined merge-alists procedure.
+  (let ((merged (merge-alists base update)))
+    ; Show that everything worked.
+    (printf "Merged alist:~%~s~%" merged)
+    (printf "Values from merged alist:~%")
+    (let loop ((keys '("name" "price" "color" "year")))
+      (unless (null? keys)
+        (printf "~s -> ~s~%" (car keys) (cdr (assoc (car keys) merged)))
+        (loop (cdr keys))))))

Task/Associative-array-Merging/SenseTalk/associative-array-merging.sensetalk

@@ -0,0 +1,13 @@
+set base to {name:"Rocket Skates", price:12.75, color:"yellow"}
+
+set update to {price:15.25, color:"red", year:1974}
+
+put "Base data: " & base
+put "Update data: " & update
+
+// replacing as an operator, to generate merged data on the fly:
+put "Merged data: " & base replacing properties in update
+
+// replace as a command, to modify base data in place:
+replace properties of update in base
+put "Base after update: " & base

Task/Associative-array-Merging/Smalltalk/associative-array-merging.st

@@ -0,0 +1,15 @@
+base := Dictionary withAssociations:{
+         'name'-> 'Rocket Skates' .
+         'price' -> 12.75 .
+         'color' -> 'yellow' }.
+
+update := Dictionary withAssociations:{
+         'price' -> 15.25 .
+         'color' -> 'red' .
+         'year' -> 1974 }.
+
+result := Dictionary new
+             declareAllFrom:base;
+             declareAllFrom:update.
+
+Transcript showCR: result.

Task/Associative-array-Merging/Swift/associative-array-merging.swift

@@ -0,0 +1,6 @@
+let base : [String: Any] = ["name": "Rocket Skates", "price": 12.75, "color": "yellow"]
+let update : [String: Any] = ["price": 15.25, "color": "red", "year": 1974]
+
+let result = base.merging(update) { (_, new) in new }
+
+print(result)

Task/Associative-array-Merging/Tcl/associative-array-merging.tcl

@@ -0,0 +1,5 @@
+set dict1 [dict create name "Rocket Skates" price 12.75 color yellow]
+set dict2 [dict create price 15.25 color red year 1974]
+dict for {key val} [dict merge $dict1 $dict2] {
+    puts "$key: $val"
+}

Task/Associative-array-Merging/V-(Vlang)/associative-array-merging.v

@@ -0,0 +1,22 @@
+type Generic = int|string|f64
+type Assoc = map[string]Generic
+
+fn merge(base Assoc, update Assoc) Assoc {
+    mut result := Assoc(map[string]Generic{})
+    for k, v in base {
+        result[k] = v
+    }
+    for k, v in update {
+        result[k] = v
+    }
+    return result
+}
+
+fn main() {
+    base := Assoc({"name": Generic("Rocket Skates"), "price": 12.75, "color": "yellow"})
+    update := Assoc({"price": Generic(15.25), "color": "red", "year": 1974})
+    result := merge(base, update)
+    for k,v in result {
+        println('$k: $v')
+    }
+}

Task/Associative-array-Merging/VBA/associative-array-merging-1.vba

@@ -0,0 +1,56 @@
+Private Type Associative
+    Key As String
+    Value As Variant
+End Type
+Sub Main_Array_Associative()
+Dim BaseArray(2) As Associative, UpdateArray(2) As Associative
+    FillArrays BaseArray, UpdateArray
+    ReDim Result(UBound(BaseArray)) As Associative
+    MergeArray Result, BaseArray, UpdateArray
+    PrintOut Result
+End Sub
+Private Sub MergeArray(Res() As Associative, Base() As Associative, Update() As Associative)
+Dim i As Long, Respons As Long
+    Res = Base
+    For i = LBound(Update) To UBound(Update)
+        If Exist(Respons, Base, Update(i).Key) Then
+            Res(Respons).Value = Update(i).Value
+        Else
+            ReDim Preserve Res(UBound(Res) + 1)
+            Res(UBound(Res)).Key = Update(i).Key
+            Res(UBound(Res)).Value = Update(i).Value
+        End If
+    Next
+End Sub
+Private Function Exist(R As Long, B() As Associative, K As String) As Boolean
+Dim i As Long
+    Do
+        If B(i).Key = K Then
+            Exist = True
+            R = i
+        End If
+        i = i + 1
+    Loop While i <= UBound(B) And Not Exist
+End Function
+Private Sub FillArrays(B() As Associative, U() As Associative)
+    B(0).Key = "name"
+    B(0).Value = "Rocket Skates"
+    B(1).Key = "price"
+    B(1).Value = 12.75
+    B(2).Key = "color"
+    B(2).Value = "yellow"
+    U(0).Key = "price"
+    U(0).Value = 15.25
+    U(1).Key = "color"
+    U(1).Value = "red"
+    U(2).Key = "year"
+    U(2).Value = 1974
+End Sub
+Private Sub PrintOut(A() As Associative)
+Dim i As Long
+    Debug.Print "Key", "Value"
+    For i = LBound(A) To UBound(A)
+        Debug.Print A(i).Key, A(i).Value
+    Next i
+    Debug.Print "-----------------------------"
+End Sub

Task/Associative-array-Merging/VBA/associative-array-merging-2.vba

@@ -0,0 +1,23 @@
+Sub Main_With_Dictionary()
+Dim Base As Object, Update As Object, Merged As Object, K As Variant
+    'INIT VARIABLE
+    Set Base = CreateObject("Scripting.Dictionary")
+    Set Update = CreateObject("Scripting.Dictionary")
+    Set Merged = Base
+    'FILL Base & Update
+    Base.Add "name", "Rocket Skates"
+    Base.Add "price", 12.75
+    Base.Add "color", "yellow"
+    Update.Add "price", 15.25
+    Update.Add "color", "red"
+    Update.Add "year", 1974
+    'Fill Merge
+    For Each K In Update.Keys
+        Merged(K) = Update(K)
+    Next
+    'Print Out
+    Debug.Print "Key", "Value"
+    For Each K In Merged.Keys
+        Debug.Print K, Merged(K)
+    Next K
+End Sub

Task/Associative-array-Merging/VBA/associative-array-merging-3.vba

@@ -0,0 +1,22 @@
+Option Explicit
+
+Private mKey As String
+Private mValue As Variant
+
+Public Property Get Value() As Variant
+    Value = mValue
+End Property
+Public Property Let Value(iValue As Variant)
+    mValue = iValue
+End Property
+Public Property Get Key() As Variant
+    Key = mKey
+End Property
+Private Property Let Key(iKey As Variant)
+    mKey = iKey
+End Property
+
+Public Sub Add(K As String, V As Variant)
+    Value = V
+    Key = K
+End Sub

Task/Associative-array-Merging/VBA/associative-array-merging-4.vba

@@ -0,0 +1,43 @@
+Sub Main_With_Class()
+Dim Base(2) As New ClassArrayAssociative, Up(2) As New ClassArrayAssociative
+    ReDim Result(UBound(Base)) As New ClassArrayAssociative
+    'FILL Base & Update
+    Base(0).Add "name", "Rocket Skates"
+    Base(1).Add "price", 12.75
+    Base(2).Add "color", "yellow"
+    Result = Base
+    Up(0).Add "price", 15.25
+    Up(1).Add "color", "red"
+    Up(2).Add "year", 1974
+    'Update Result with Up
+    Update Result, Up
+    'Print Out
+    Print_Out_2 Result
+End Sub
+Private Sub Update(R() As ClassArrayAssociative, U() As ClassArrayAssociative)
+Dim i As Long, j As Long, Flag As Boolean
+    For i = LBound(U) To UBound(U)
+        j = LBound(R)
+        Flag = False
+        Do While j <= UBound(R) And Not Flag
+            If R(j).Key = U(i).Key Then
+                R(j).Value = U(i).Value
+                Flag = True
+            End If
+            j = j + 1
+        Loop
+        If Not Flag Then
+            ReDim Preserve R(UBound(R) + 1)
+            Set R(UBound(R)) = New ClassArrayAssociative
+            R(UBound(R)).Add U(i).Key, U(i).Value
+        End If
+    Next i
+End Sub
+Private Sub Print_Out_2(A() As ClassArrayAssociative)
+Dim i As Long
+    Debug.Print "Key", "Value"
+    For i = LBound(A) To UBound(A)
+        Debug.Print A(i).Key, A(i).Value
+    Next i
+    Debug.Print "-----------------------------"
+End Sub

Task/Associative-array-Merging/VBScript/associative-array-merging.vb

@@ -0,0 +1,29 @@
+set d1=createobject("Scripting.Dictionary")
+d1.add "name", "Rocket Skates"
+d1.add "price", 12.75
+d1.add "color", "yellow"
+
+set d2=createobject("Scripting.Dictionary")
+d2.add "price", 15.25
+d2.add "color", "red"
+d2.add "year", 1974
+
+set d3=createobject("Scripting.Dictionary")
+for each k1 in d1.keys
+   if not d3.exists(k1) then
+     d3.add k1, d1(k1)
+   else
+     d3(k1)=d1(k1)
+   end if
+next	
+for each k2 in d2.keys
+   if not d3.exists(k2) then
+      d3.add k2, d2(k2)
+   else
+      d3(k2)=d2(k2)
+   end if
+next	
+
+for each k3 in d3.keys
+   wscript.echo k3 & vbtab & d3(k3)
+next	

Task/Associative-array-Merging/Wren/associative-array-merging.wren

@@ -0,0 +1,11 @@
+var mergeMaps = Fn.new { |m1, m2|
+    var m3 = {}
+    for (key in m1.keys) m3[key] = m1[key]
+    for (key in m2.keys) m3[key] = m2[key]
+    return m3
+}
+
+var base = { "name": "Rocket Skates" , "price": 12.75, "color": "yellow" }
+var update = { "price": 15.25, "color": "red", "year": 1974 }
+var merged = mergeMaps.call(base, update)
+System.print(merged)

Task/Associative-array-Merging/Zkl/associative-array-merging.zkl

@@ -0,0 +1,12 @@
+base:=Dictionary(
+   "name", 	"Rocket Skates",
+   "price", 	12.75,
+   "color", 	"yellow",);
+update:=Dictionary(
+   "price", 	15.25,
+   "color", 	"red",
+   "year", 	1974,);
+
+update.pump( new:=base.copy() );
+
+new.pump(Void,fcn([(k,v)]){ println("%s\t%s".fmt(k,v)) });