tcl-otcl 腳本：逆序排列

1、lreverse

set Order {1 2 3}
puts "Order : {$Order}"
set reverseOrder ""
set reverseOrder [lreverse $reverseOrder]
puts "reverseOrder : {$reverseOrder}"


Order : {1 2 3}
reverseOrder : {3 2 1}

2、正序遍歷，前插

set Order {1 2 3}
puts "Order : {$Order}"
set reverseOrder ""
foreach e $Order {                                         ;# 正序遍歷
    set reverseOrder [linsert $reverseOrder 0 $e]          ;# 前插
}
puts "reverseOrder : {$reverseOrder}"


Order : {1 2 3}
reverseOrder : {3 2 1}

3、逆序遍歷，後插

set Order {1 2 3}
puts "Order : {$Order}"
set reverseOrder ""
for {set i [expr [llength $Order] - 1]} {$i >= 0} {incr i -1} {                            ;# 逆序遍歷
    lappend reverseOrder [lindex $Order $i]                      ;# 後插
#   set reverseOrder [linsert $reverseOrder end [lindex $Order $i]]
}
puts "reverseOrder : {$reverseOrder}"


Order : {1 2 3}
reverseOrder : {3 2 1}