Data update

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

@@ -1,16 +1,7 @@
-array set myAry {
-    # list items here...
+array set family {
+     surname  Miller
+    father    John
+    mother    Helen
+    daughter  [list Jane Karen]
+    son       Donald
 }
-
-# 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

@@ -1,16 +1,3 @@
-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"
-}
+#  "John Miller"
+set  dad  "$family(father) $family(lastname)"
+set second_daughter [lindex $family(daughter) 1]

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

@@ -0,0 +1,2 @@
+set l [array get family]
+#  {surname Miller father John mother Helen daughter {Jane Karen} son Donald}

Task/Associative-array-Iteration/Tcl/associative-array-iteration-4.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-5.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"
+}