Associative array/Iteration: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,580: / Line 2,580: @@
 ( ( ) ( ) ) var dictionary
-/#
-def setd
-get dictionary 1 get nip swap 0 put dictionary swap 1 set var dictionary
-get dictionary 2 get nip swap 0 put dictionary swap 2 set var dictionary
-enddef
-#/
 def setd    /# ( key data ) --  #/
-for
+get swap 2 get nip
-        var i
+    dictionary 2 get rot 0 put 2 set
-        i get
+get rot 0 put 1 set
-        dictionary i get nip
+    var dictionary
-        swap 0 put
-        dictionary swap i set var dictionary
-    endfor
-    drop
 enddef