父子关系:
输入:
节点列表 5 8 7 3 2
父节点列表 10 5 5 10 3
输出:
层序遍历结构 10 5 3 8 7 2
set child {5 8 7 3 2}
set father {10 5 5 10 3}
set root 10
set outOrder {root} ;# 初始化遍历结构列表,先放入root
for {set i 0} {$i < [llength $outOrder]} {incr i} {
set e [lindex $outOrder $i]
for {set j 0} {$j < [llength $father]} {incr j} {
if {[lindex $father $j] == $e} {
lappend outOrder [lindex $child $j]
}
}
}
puts "outOrder : {$outOrder}"
outOrder : {10 5 3 8 7 2}