fork download
copy 
  1.  
  2.     set tdc_x 43
  3.     set tdc_y 9
  4.     set tdc_n 0
  5.  
  6.  
  7. while { $tdc_n < 9 } {
  8.  
  9.      puts "Hello, World!";
  10.      #incr tdc_n
  11.     set tdc_n [expr $tdc_n+3];
  12.  
  13. }
  14.         # set i 0
  15.  
  16. # while { $tdc_n < 5 } {
  17. #  puts "Hello, World!"
  18. #  incr tdc_n
  19. # }
Success #stdin #stdout 0.01s 5300KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Hello, World!
Hello, World!
Hello, World!
https://ideone.com/XtmaY9
language:
TCL (tcl 8.6)
created:
22 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!