fork download
copy 
  1.  
  2.  
  3.     set tdc_x 43
  4.     set tdc_y 9
  5.     set tdc_n 3
  6.  
  7.     set i 0
  8.     set j 0
  9.  
  10. while { $j < 12 } {
  11.  
  12. 	while { $i < 12 } {
  13.  
  14.  
  15. 	incr i;
  16.  
  17. 	puts "$i";
  18.  
  19.  
  20.  
  21. 	}
  22. 	incr j;
  23. 	puts "j = $j";
  24. 	set i 0
  25.  
  26. }
Success #stdin #stdout 0.01s 5284KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1
2
3
4
5
6
7
8
9
10
11
12
j = 1
1
2
3
4
5
6
7
8
9
10
11
12
j = 2
1
2
3
4
5
6
7
8
9
10
11
12
j = 3
1
2
3
4
5
6
7
8
9
10
11
12
j = 4
1
2
3
4
5
6
7
8
9
10
11
12
j = 5
1
2
3
4
5
6
7
8
9
10
11
12
j = 6
1
2
3
4
5
6
7
8
9
10
11
12
j = 7
1
2
3
4
5
6
7
8
9
10
11
12
j = 8
1
2
3
4
5
6
7
8
9
10
11
12
j = 9
1
2
3
4
5
6
7
8
9
10
11
12
j = 10
1
2
3
4
5
6
7
8
9
10
11
12
j = 11
1
2
3
4
5
6
7
8
9
10
11
12
j = 12
https://ideone.com/yfCmoL
language:
TCL (tcl 8.6)
created:
20 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!