B

Task/Associative-array-Iteration/BBC-BASIC/associative-array-iteration.bbc

@@ -0,0 +1,26 @@
+      REM Store some values with their keys:
+      PROCputdict(mydict$, "FF0000", "red")
+      PROCputdict(mydict$, "00FF00", "green")
+      PROCputdict(mydict$, "0000FF", "blue")
+
+      REM Iterate through the dictionary:
+      i% = 1
+      REPEAT
+        i% = FNdict(mydict$, i%, v$, k$)
+        PRINT v$, k$
+      UNTIL i% = 0
+      END
+
+      DEF PROCputdict(RETURN dict$, value$, key$)
+      IF dict$ = "" dict$ = CHR$(0)
+      dict$ += key$ + CHR$(1) + value$ + CHR$(0)
+      ENDPROC
+
+      DEF FNdict(dict$, I%, RETURN value$, RETURN key$)
+      LOCAL J%, K%
+      J% = INSTR(dict$, CHR$(1), I%)
+      K% = INSTR(dict$, CHR$(0), J%)
+      value$ = MID$(dict$, I%+1, J%-I%-1)
+      key$ = MID$(dict$, J%+1, K%-J%-1)
+      IF K% >= LEN(dict$) THEN K% = 0
+      = K%

Task/Associative-array-Iteration/Brat/associative-array-iteration.brat

@@ -0,0 +1,16 @@
+h = [ hello: 1 world: 2 :! : 3]
+
+#Iterate over key, value pairs
+h.each { k, v |
+  p "Key: #{k} Value: #{v}"
+}
+
+#Iterate over keys
+h.each_key { k |
+  p "Key: #{k}"
+}
+
+#Iterate over values
+h.each_value { v |
+  p "Value: #{v}"
+}