tcl语言从1加到100示例

724953778

set aa [list]

set a 0
while {$a<100} {

incr a 1
lappend aa $a

}
puts $aa

foreach kk  $aa {

if {[info exists wang]} {

set wang [expr $wang+$kk]

} else {

set wang $kk
}

}

puts $wang