tclプロシージャから返されたリストのリストへのアクセス

Question

私はリストのリストを返す手続きを持っています。最初に分割しないで内部リストにアクセスする方法を理解できません。私はきれいな方法がなければならないと確信しています。例えば

、これ：

proc return_l_of_l {} { 
    set x {a b c} 
    set y {d e f} 
    return [list [list $x] [list $y]] 
} 
set l [return_l_of_l] 
set x_list [lindex $l 0] 
set y_list [lindex $l 1] 

foreach x $x_list { puts $x } 
foreach y $y_list { puts $y } 

出力：

a b c 
d e f 

ない：

a 
b 
c 
d 
e 
f 

Answer 1

問題は、この行である：

return [list [list $x] [list $y]] 

xとyはすでにリストを保持しているので、リストのリストを作成します。あなたの代わりに行う必要があります。

return [list $x $y] 

または可能性：

return [list [list {*}$x] [list {*}$y]] 

Answer 2

proc return_l_of_l {} { 
    set x {a b c} 
    set y {d e f} 
    return [list [list $x] [list $y]] 
} 

は、それぞれが単一の要素からなる二つのリストのリストを返す - a b cとd e f。これは、{a b c}と{d e f}が既にリストとして解釈できる構造体であるためです。

たぶんあなただけの

return [list $x $y]