Posted to tcl by rmax at Thu Jun 08 15:47:19 GMT 2017view raw

  1. # Don't operate on B and A when A and B have already been done.
  2. proc foo data {
  3. while {[llength $data]} {
  4. set data2 [lassign $data value1]
  5. foreach value2 $data2 {
  6. # doSomething $value1 $value2
  7. }
  8. set data $data2
  9. }
  10. }
  11.