Tcl - 巢狀迴圈

Tcl 允許在一個迴圈內使用另一個迴圈。以下部分提供了一些示例來說明這個概念。

語法

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

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