Posted to tcl by aspect at Thu Feb 02 01:18:05 GMT 2017view raw

  1. foreach a {2 4 6 8} {
  2. try {
  3. foreach b {3 6 9 12} {
  4. puts "($a, $b)"
  5. if {$a == $b} {throw break ""}
  6. }
  7. } trap break {} {
  8. break
  9. }
  10. }
  11.