TCL中if语句结合expr运算异常，结果判断错误求助

先看你给出的有问题的代码：

if {[expr 2000.0 - [lindex $llend [expr $i+0] 0 ]] > 80 {
     puts "Error: Results > 80"
}

问题根源 #

1. 语法错误（核心原因）：if的条件表达式外层缺少一个闭合的}，正确的条件必须被{}完全包裹。原代码最后只写了一个{就进入语句块，TCL解析这种错误时会出现逻辑混乱，导致不管计算结果是否符合条件，都会执行错误提示语句。
2. 冗余代码：[expr $i+0]完全没必要，直接用$i作为lindex的索引即可，这部分不影响逻辑，但会增加代码复杂度。
3. 代码里的>是HTML转义字符，实际运行的TCL代码里必须是>，否则也是语法错误，应该是粘贴时的转义问题。

修复后的代码 #

if {[expr 2000.0 - [lindex $llend $i 0]] > 80} {
    puts "Error: Results > 80"
}

修复说明 #

• 补上了if条件末尾缺失的}，让TCL能正确解析条件判断逻辑，只有当2000.0 - [lindex $llend $i 0]的结果确实大于80时，才会执行错误输出。
• 移除了冗余的[expr $i+0]，简化代码的同时不影响功能。

内容的提问来源于stack exchange，提问作者Chang