小编Lig*_*ami的帖子

我是 tcl 新手，我试图获取给定列表中的最大元素我编写了一个打印最大值的函数，但它无法正常工作，这是代码

proc findmax { items } {
  set max 1
  foreach i $items { 
    if { $i > $max } {
      set $max $i
    }
  }
  puts "max is = $max"
}

我这样调用该函数：

findmax $items

这是我通过的列表：

set items { 12 2 5 4 2 6 7 55 8 9 6 4}

但它输出 1 而不是预期的 55