tcl-otcl 腳本：由父子關係，輸出一個層序遍歷結果

父子關係：

輸入：

       節點列表            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}