Data commit

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