数组名称中的串联

Question

我想在 100 个数组中存储 100 个节点的详细信息。 例如，

节点 1 的邻居应存储在 array1

，对于每个数组，名称应更改为 array1、array2, array3, ..., array100

我需要使用 for< 连接数组和 ( 1 , 2 , 3 , ... , 100 ) /代码> 循环。

我该怎么做？

Answer 1

不太确定你想要什么，但二维数组听起来像是正确的选择

set a(1,1) neighbourof1_1;
set a(1,2) neighbourof1_2;
set a(2,1) neighbourof2_1;
...
...
set a(100,1) neighbourof100_1;

Answer 2

通常建议使用二维数组（实际上只是复合元素名称），如下所示：

foreach x $listOf1to100 {
    foreach y $listOf1to100 {
        set ary($x,$y) "blah blah"
    }
}

但是，如果您确实想创建这些名称，则可以通过多种方式来实现。一种是这样的：

foreach x $listOf1to100 {
    set ary${x}(...) "blah blah"
}

但这很丑。当你来读取数组时就更丑了！更好的选择是：

foreach x $listOf1to100 {
    upvar 0 array$x a
    set a(...) "blah blah"
}

请注意，如果您确实正在执行 2D 紧凑数字索引，那么您可能最好使用嵌套列表来构建矩阵：

# Create
set matrix [lrepeat 100 [lrepeat 100 "blah blah"]]
# Lookup
set value [lindex $matrix $x $y]
# Update
lset matrix $x $y $value