Posted to tcl by FM at Mon Aug 10 18:20:24 GMT 2026view raw

  1. % namespace eval :: {(
  2. a = 2;
  3. b = 3;
  4. c = 4;
  5. d = 5;
  6. U = (($a*$b, $a*$c, $a*$d), ($b*$c, $b*$d), ($c *$d));
  7. )}
  8. % puts $U
  9. {6 8 10} {12 15} 20
  10.