Posted to tcl by oldlaptop at Tue Nov 23 19:39:26 GMT 2021view raw

  1. % set a [list "#1st" "#2nd"]; set b [list "#3rd" "#4rt"]; dict set d [concat $a $b] "val-A"
  2. {{#1st} #2nd {#3rd} #4rt} val-A
  3. % set a [list "#1st" "#2nd"]; set b [list "#3rd" "#4rt"]; string length $b; dict set d [concat $a $b] "val-B"
  4. {{#1st} #2nd {#3rd} #4rt} val-B
  5. %