使用tcl/expect实现对链表反转

#!/usr/bin/env expect


# Reverse the list 
set a {1 2 3 4 5 6 7}
set aLen [llength $a]
set iLen [expr $aLen - 1]


for {set i $iLen} {$i >= 0} {incr i -1} {
    lappend b [lindex $a $i]
}


puts "b is <$b>"