TCL允许使用一个循环内的另一个循环。下面的内容展示几个例子来说明这个概念。
Tcl语言的嵌套的循环语句的语法如下：
| for {initialization} {condition} {increment} { |
| for {initialization} {condition} {increment} { |
| statement(s); |
| } |
| statement(s); |
| } |
| while {condition} { |
| while {condition} { |
| statement(s); |
| } |
| statement(s); |
| } |
下面的程序使用嵌套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
