tcl 从子列表制作单个列表

Question

正在将列表列表转换为单个列表。例如：

列表 1 {1 2 {3 4 5} 6 7 {8} 9 10 {{11 12} 13} 14 {15} 16 {{{{17} 18} 19} 20} 21 22 {23} 24 25}
转换为
List1 { 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25}

如何转换？？

Answer 1

假设叶子是简单的单词（例如，字母、数字、句点，但绝对没有 Tcl元字符）join相当简单：

set s {1 2 {3 4 5} 6 7 {8} 9 10 {{11 12} 13} 14 {15} 16 {{{{17} 18} 19} 20} 21 22 {23} 24 25}
while {[set t [join $s]] ne $s} {set s $t}
puts $s
# => 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

要查看其工作原理，请尝试将 puts 放入循环中，如以下交互式会话所示：

% while {[set t [join $s]] ne $s} {
    puts $t
    set s $t
}
1 2 3 4 5 6 7 8 9 10 {11 12} 13 14 15 16 {{{17} 18} 19} 20 21 22 23 24 25
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 {{17} 18} 19 20 21 22 23 24 25
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 {17} 18 19 20 21 22 23 24 25
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

请注意，如果您在扩展期间的任何时候生成无效列表，这将不起作用，因此避免使用元字符（尤其是 \、{ 和 }).在生产代码中做这种事情也不常见；需要它通常表明其他地方出了问题。

Answer 2

使用 tcllib：

package require struct::list
set List1 {1 2 {3 4 5} 6 7 {8} 9 10 {{11 12} 13} 14 {15} 16 {{{{17} 18} 19} 20} 21 22 {23} 24 25}
puts [struct::list flatten -full $List1]

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Documentation

tcl 从子列表制作单个列表

tcl Making single list from sublist

arrays

list

tcl