tcl - 预期整数但出现 "floating point number"错误

Question

我尝试使用列表在 TCL 中编写一个非常简单的程序。

下面是列表

list { 1 2 3 4 5 6 1.5 7 }

下面是我的代码

set sum 0
for {set i 0} {$i < [llength $list]} {incr i} {
    incr sum [lindex $list $i]
}

puts  $sum

在执行上面的程序时，由于列表中的浮点值为 1.5，我得到以下错误

expected integer but got "1.5"    (reading increment)    invoked from within"incr sum [lindex $list $i]"

我在网上搜索过，没有找到任何相关的内容。请告知我如何处理浮点值？

Answer 1

在使用 incr 命令时，变量必须具有可以解释为整数的值。参见 tcl wiki .如果变量是非整数实数，则不能使用 [incr]，但可以使用 [set]:

set sum 0
for {set i 0} {$i < [llength $list]} {incr i} {
    set sum [expr {$sum + [lindex $list $i]}]
}

puts  $sum