Четный и нечетный индекс в списке

Question

Каков наилучший способ в Tcl разделить список A на список B и список C Где B будет иметь даже элементы индекса из A и C будет иметь нечетные элементы индекса из A.

Answer 1

Я считаю, что использование цикла foreach может быть самым простым:

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