Как сделать + = в TCL

Question

set windowSize 0

for {set i 0} {$i < 14} {incr i} {
  set $windowSize [expr $windowSize + [$tcp($i) set cwnd_]]
}
puts "$windowSize"

Это печатает ноль, когда добавляемые значения отличны от нуля. Как это сделать без временной переменной? Привет, если ты любишь TCL. ... мертвая тишина.

Answer 1

set $windowSize заменяет значение $windowSize перед выполнением команды.

Вы хотите set windowSize [expr ...], или даже проще:

incr windowSize [$tcp($i) set cwnd_]