arrays - 如何在 TCL 中使用 foreach 创建两个元素的所有组合

Question

我想像这样创建 2 的所有组合，但似乎不起作用。

我在这里错过了什么吗？

 foreach swt "$Agg1 $Agg2" {

      foreach acc "$Acc1 $Acc2 $Acc3" {

      Function (swt acc) {
      } 
    }
 }

我希望将所有组合（如 Agg1 Acc1、Agg1 Acc2、Agg1 Acc3、Agg2 Acc1、Agg2 Acc2、Agg2 Acc3）传递给函数。

但它似乎不适用于上面的代码。我能想到的唯一其他方法是创建 6 个代码块。

Answer 1

您正在插入（可能）尚不存在的变量。取出美元符号。

foreach swt "Agg1 Agg2" {
    foreach acc "Acc1 Acc2 Acc3" {
        puts "$swt $acc"
    }
}

我还建议在那里使用花括号，尽管您可以使用引号。

foreach swt {Agg1 Agg2} {
    foreach acc {Acc1 Acc2 Acc3} {
        puts "$swt $acc"
    }
}