TCL巢狀迴圈

TCL允許使用一個迴圈內的另一個迴圈。下面的內容展示幾個例子來說明這個概念。

語法

Tcl語言的巢狀的迴圈語句的語法如下：

for {initialization} {condition} {increment} {
   for {initialization} {condition} {increment} {
      statement(s);
   }
   statement(s);
}

Tcl語言巢狀while迴圈語句的語法如下：

while {condition} {
   while {condition} {
      statement(s);
   }
   statement(s);
}

在迴圈巢狀最後需要說明的是，可以把任何型別迴圈巢狀在其他型別迴圈內。例如，for迴圈可以是一個while迴圈的內迴圈，或反之亦然。

範例

下面的程式使用巢狀for迴圈從2至100找出所有的素數：

#!/usr/bin/tclsh

set j 0;
for {set i 2} {$i<100} {incr i} {
   for {set j 2} {$j <= [expr $i/$j] } {incr j} {
      if {  [expr $i%$j] == 0 } {
         break
      } 
   }
   if {$j >[expr $i/$j] } {
      puts "$i is prime"
   }
}

當上述程式碼被編譯和執行時，它產生了以下結果：

2 is prime
3 is prime
5 is prime
7 is prime
11 is prime
13 is prime
17 is prime
19 is prime
23 is prime
29 is prime
31 is prime
37 is prime
41 is prime
43 is prime
47 is prime
53 is prime
59 is prime
61 is prime
67 is prime
71 is prime
73 is prime
79 is prime
83 is prime
89 is prime
97 is prime