Anonymous user
Menu: Difference between revisions
→{{header|Tcl}}: increase Tcl-ishness
(→Tcl: Added implementation) |
(→{{header|Tcl}}: increase Tcl-ishness) |
||
Line 102:
set numWidth [string length $nc]
while true {
puts [format " %-*d: %s" $numWidth [incr i] $s]
}
puts -nonewline "$prompt: "
|