Posted to tcl by kotrcka at Mon Dec 23 02:59:36 GMT 2019view raw
- puts "Merry Christmas everyone!!!\n"
- for {set a 1} {$a < 20} {incr a 2} {
- puts "[string repeat { } [expr 19 - $a]][string repeat {xo} $a]"
- puts "[string repeat { } [expr 19 - $a]][string repeat {ox} $a]"
- }
- puts "[string repeat { } [expr $a - 2]]||"
- puts "[string repeat { } [expr $a - 2]]||"