列表中的偶数和奇数索引

Question

在Tcl中将列表A分为列表B和列表C的最佳方法是什么 其中B将具有A的偶数索引项 和C将具有A的奇数索引项。

Answer 1

我相信使用foreach循环可能是最简单的：

foreach {a b} $listC {
    lappend listA $a
    lappend listB $b
}