List Tcl中两个列表的元素相乘

我有两个长度相同的列表，我想将它们按元素相乘（就像集合中的笛卡尔积）。我该怎么做？例如，如果我写

set a {1 2 3 4 5} 
set b {1 2 3 4 5} 

，则所需输出为：

---

{1 4 9 16 25}

两个列表

lmap

非常适合：

set a {1 2 3 4 5}
set b {1 2 3 4 5}

set result [lmap x $a y $b {expr {$x * $y}}]

如果您使用的是Tcl 8.5（或更高版本），请使用以下选项：

set a {1 2 3 4 5}
set b {1 2 3 4 5}

set result {}
foreach x $a y $b {
    lappend result [expr {$x * $y}]
}

foreach

的多列表形式确实支持了很长时间