在TCL中动态创建嵌套列表

# 创建一个空的嵌套列表
set nestedList {}

# 动态添加元素到嵌套列表
for {set i 0} {$i < 3} {incr i} {
    set innerList {}
    for {set j 0} {$j < 3} {incr j} {
        lappend innerList [expr {$i * 3 + $j}]
    }
    lappend nestedList $innerList
}

# 打印嵌套列表
puts "Nested List: $nestedList"

Nested List: {0 1 2} {3 4 5} {6 7 8}

set element 42
if {[string is integer -strict $element]} {
    lappend nestedList $element
} else {
    error "Invalid element type"
}

set tempList {}
for {set i 0} {$i < 1000} {incr i} {
    lappend tempList $i
}
lappend nestedList $tempList

# 示例：确保不再使用的变量被清除
unset nestedList