Useful Statement in Tcl
吸收借鉴一些其它语言里有用的特性，用在 Tcl 语言里。
let
lassign $values a blet {a b} = $values
# let a = b
proc let {args} {
set idx [lsearch $args "="]
uplevel 1 [list lassign [lindex $args $idx+1] {*}[lindex $args $idx-1]]
}
吸收借鉴一些其它语言里有用的特性，用在 Tcl 语言里。
lassign $values a blet {a b} = $values# let a = b
proc let {args} {
set idx [lsearch $args "="]
uplevel 1 [list lassign [lindex $args $idx+1] {*}[lindex $args $idx-1]]
}