Tcl - Bucles anidados

Tcl permite usar un bucle dentro de otro bucle. La siguiente sección muestra algunos ejemplos para ilustrar el concepto.

Sintaxis

La sintaxis de un nested for La declaración de bucle en lenguaje Tcl es la siguiente:

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

La sintaxis de un nested while loop declaración en lenguaje Tcl es la siguiente:

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

Una nota final sobre el anidamiento de bucles es que puede colocar cualquier tipo de bucle dentro de cualquier otro tipo de bucle. Por ejemplo, un bucle for puede estar dentro de un bucle while o viceversa.

Ejemplo

El siguiente programa usa un bucle for anidado para encontrar los números primos del 2 al 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"
   }
}

Cuando el código anterior se compila y ejecuta, produce el siguiente resultado:

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