set sum 0
set cnt 0
while { $cnt < 10 } {
incr sum [incr cnt]
}
|
合計、カウンタの初期値を0に設定する 最後が左ブレースで終了しているので、対応する右ブレースがある3行分が1スクリプトとなる。 whileコマンドには、第1引数として「 $cnt < 10 」、第2引数として「改行 incr sum [incr cnt]改行」が 渡される。変数cntの置換やincr sum…の評価は、whileコマンドが再度イナプリタを呼び出した時点で行われる。 |
![]() |
![]() |
![]() |
![]() |