list - TCL のリストを同じサイズの 2 つのリストに分割する

Question

以外に良い方法はありますか

1. リストの長さを求めます ( [llength])
2. ミッドウェイにカウンターを走らせる [llength]/2
3. 次に、すべての要素をポップアウトし[lindex $index]ますlindex/2
4. 次に、手順 3 のリストと元のリストを交差させます

list1 内の 1 つの要素と list 2 内の次の要素などをポップアウトする、それほど複雑でない方法があれば、非常に便利です。

Answer 1

set len [expr {[llength $src] / 2}]
set left [lrange $src 0 [expr {$len - 1}]]
set right [lrange $src $len end]

全長が 2 以上の偶数であることを最初に確認することもできます。

Answer 2

foreachループを使用できます。

set pairedlist [list "FirstName" "Tony" "LastName" "Bennett"]

set keys [list]
set values [list]

foreach {key value} $pairedlist {
  puts "$key: $value"
  lappend keys $key
  lappend values $value
}

puts $keys
puts $values