Re: [TCLCORE] TIP #363: Vector Math in the Tcl Core

[Alexandre F. <ale...@gm...>]

Sorry for the typo, untamed fingers.

 proc myexpr {x op y} {
     if {[llength $x]==1} {return [expr $x $op $y]}
     if {[llength $x]!=[llength $y]} {error "Dimension mismatch"}
     set z {}
     foreach a $x b $y {lappend z [myexpr $a $op $b]}
     return $z
  }

-Alex