Tcl - Boucles imbriquées

Tcl permet d'utiliser une boucle dans une autre boucle. La section suivante montre quelques exemples pour illustrer le concept.

Syntaxe

La syntaxe d'un nested for L'instruction de boucle en langage Tcl est la suivante -

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

La syntaxe d'un nested while loop La déclaration en langage Tcl est la suivante -

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

Une dernière remarque sur l'imbrication de boucles est que vous pouvez placer n'importe quel type de boucle à l'intérieur de n'importe quel autre type de boucle. Par exemple, une boucle for peut être à l'intérieur d'une boucle while ou vice versa.

Exemple

Le programme suivant utilise une boucle for imbriquée pour trouver les nombres premiers de 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"
   }
}

Lorsque le code ci-dessus est compilé et exécuté, il produit le résultat suivant -

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