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}