RosettaCodeData/Task/Associative-array-Iteration/Tcl/associative-array-iteration...

4 lines
112 B
Tcl

# "John Miller"
set dad "$family(father) $family(lastname)"
set second_daughter [lindex $family(daughter) 1]