Associative array/Iteration: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,579: / Line 2,579: @@
 <lang Phixmonti>include ..\Utilitys.pmt
+def getd    /# dict key -- dict data #/
-( ( ) ( ) ) var dictionary
+    swap 1 get rot find nip
+    dup if
+        swap 2 get rot get nip
+    else
+        drop "Unfound"
+    endif
+enddef
+def setd    /# dict ( key data ) -- dict #/
-def setd
 get var ikey
 get var idata
     drop
-    dictionary 1 get ikey find var p drop
+get ikey find var p drop
     p if
 get idata p set 2 set
     else
 get idata 0 put 2 set
 get ikey 0 put 1 set
     endif
-    var dictionary
 enddef
-def getd    /# key -- data #/
-    dictionary 1 get nip swap find nip
-    dup if
-        dictionary 2 get nip swap get nip
-    else
-        drop "Unfound"
-    endif
-enddef
-def pair    /# n -- ( k d ) #/
+def pair    /# dict n -- dict ( k d ) #/
 over 2 tolist var ikey
 swap 2 tolist var idata
-    dictionary ikey sget
+    ikey sget
-    swap idata sget nip
+    swap idata sget rot swap
 tolist
 enddef
-def scandict    /# n -- #/
+def scandict    /# dict n -- dict ( ) #/
+    var n
-    dictionary 1 get len nip nip
+get len nip
     for
         pair
-        over 0 != if over get nip endif
+        n if n get nip endif
         print nl
     endfor
-    drop
 enddef
-def pairs
+def pairs   /# dict -- dict ( ) #/
 scandict
 enddef
@@ Line 2,635: / Line 2,634: @@
 /# ---------- MAIN ---------- #/
+( ( ) ( ) )
 ( "one" 1 ) setd
@@ Line 2,642: / Line 2,643: @@
 pairs nl
 keys nl
-values</lang>
+values
+</lang>
 =={{header|PHP}}==