Posted to tcl by kotrcka at Mon Dec 23 02:59:36 GMT 2019view raw

  1. puts "Merry Christmas everyone!!!\n"
  2.  
  3. for {set a 1} {$a < 20} {incr a 2} {
  4. puts "[string repeat { } [expr 19 - $a]][string repeat {xo} $a]"
  5. puts "[string repeat { } [expr 19 - $a]][string repeat {ox} $a]"
  6. }
  7. puts "[string repeat { } [expr $a - 2]]||"
  8. puts "[string repeat { } [expr $a - 2]]||"