Tcl:飞行指令代替

Question

我有以下代码,它基于变量op调用min或者max.

  switch $op {
      min {
        set x  [::tcl::mathfunc::min {*}$lax]
        set y  [::tcl::mathfunc::min {*}$lay]
      }
      max {
        set x  [::tcl::mathfunc::max {*}$lax]
        set y  [::tcl::mathfunc::max {*}$lay]
      }
  }

我想写下类似的东西,而不是通过开关写它.

       set x  [::tcl::mathfunc::$op {*}$lax]
       set y  [::tcl::mathfunc::$op {*}$lay]

我尝试使用subst命令,但无法让它工作.我用Tcl 8.5.7

Answer 1

你的第二个例子应该是未经修改的,所以不需要过度生成.注意:

% set lax {1 2 3}
1 2 3
% set op min
min
% set x [::tcl::mathfunc::$op {*}$lax]
1
% set op max
max
% set x [::tcl::mathfunc::$op {*}$lax]
3