Tcl雖然incr邏輯

Question

我想從1到10的計數，但跳過5.這隻適用於當我把incr放在下面的開始時。爲什麼？我認爲incr後其他會增加一個2 3 4等，然後跳過5，並進入10.但它停在5，永遠不會繼續。

這個作品

set a 1 
set b 10 

while {$a < $b} { 
    incr a 
    if {$a == 5} { 
     continue 
    } else { 
     puts $a 
    } 
} 

這不起作用

while {$a < $b} { 
    if {$a == 5} { 
     continue 
    } else { 
     puts $a 
    } 
    incr a 
} 

Answer 1

想想繼續命令的邏輯：它跳過循環的其餘部分，並從頭開始。當== 5時，if語句爲真，因此您跳過循環的其餘部分，這也會跳過incr命令。轉到循環的頂部，a仍然是5，並且您再次跳過循環的其餘部分。實際上，你正在陷入無限循環。要解決這個問題的一種方法是不使用繼續命令：

set a 1 
set b 10 
while {$a <= $b} { 
    if {$a != 5} { 
     puts $a 
    } 
    incr a 
} 

順便提一下，第一種方式也不太工作：它跳過1號和2與