如何使特定列表值（tcl）

Question

我要列出特定的重复列表。 XA0 XB0 XC0 XD0 XD1 XC1 XB1 XA1 XA2 XB2 XC2 XD2 XD3 XC3 XB3 XA3 ..... 如您所见，A-B-C-D-D-C-B-A ...重复模式和计数也得到了扩展。

专家！请帮帮我！

Answer 1

好的，翻转图案会使这变得有些棘手。但是我们有lreverse，所以这并不是很难。我们只需要在每遍迭代后翻转字母列表即可。

set resultList {}
set letters {A B C D}
for {set i 0} {$i <= 3} {incr i} {
    foreach ch $letters {
        lappend resultList "X${ch}${i}"
    }
    set letters [lreverse $letters]
}
puts $resultList
# XA0 XB0 XC0 XD0 XD1 XC1 XB1 XA1 XA2 XB2 XC2 XD2 XD3 XC3 XB3 XA3