Skip to main content
2 of 4
added 126 characters in body
sergiol
  • 4.2k
  • 1
  • 17
  • 37

#tcl, 39

time {puts [string repe * [incr i]]} $n 

#demo

#tcl, 46
while {[incr i]<=$n} {puts [string repe * $i]} 

#demo

sergiol
  • 4.2k
  • 1
  • 17
  • 37