for {set i 0} {$i<=5} {incr i} { for {set j 5} {$j>=$i} {incr j -1} { puts -nonewline $j } puts "\n" }
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy. Accept Learn more