Data commit

Task/Associative-array-Iteration/Tcl/associative-array-iteration-1.tcl

@@ -0,0 +1,16 @@
+array set myAry {
+    # list items here...
+}
+
+# Iterate over keys and values
+foreach {key value} [array get myAry] {
+    puts "$key -> $value"
+}
+
+# Iterate over just keys
+foreach key [array names myAry] {
+    puts "key = $key"
+}
+
+# There is nothing for directly iterating over just the values
+# Use the keys+values version and ignore the keys

Task/Associative-array-Iteration/Tcl/associative-array-iteration-2.tcl

@@ -0,0 +1,16 @@
+set myDict [dict create ...]; # Make the dictionary
+
+# Iterate over keys and values
+dict for {key value} $myDict {
+    puts "$key -> $value"
+}
+
+# Iterate over keys
+foreach key [dict keys $myDict] {
+    puts "key = $key"
+}
+
+# Iterate over values
+foreach value [dict values $myDict] {
+    puts "value = $value"
+}