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

あなたの2番目の例は変更されていないので、オーバージェネレーターにする必要はありません。 守っ：

% 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