Language: C C++ D Haskell Lua OCaml PHP Perl Plain Text Python Ruby Scheme Tcl for {set i 1} {$i <= 100} {incr i} { set x "" if {$i % 3 == 0} { set x "Fizz" } if {$i % 5 == 0} { set x "Buzz" } if {$i % 3 == 0 && $i % 5 == 0} { set x "FizzBuzz" } if {$i % 3 > 0 && $i % 5 > 0} { set x $i } puts $x } Private [?] Run code