【发布时间】:2015-10-30 17:09:30
【问题描述】:
代码如下。单独运行,上面的代码段没有编译,但下面的代码段编译正常。
proc printbobs {times {textd "cream corn"}} {
for {set r 0} {$r<$times} {incr r}{
puts $textd
}
return $times
}
printbobs 2
proc printText {times2 {textp "hello word"}} {
for {set i 0} {$i<$times2} {incr i} {
puts $textp
}
return $times2
}
printText 2
【问题讨论】:
标签: tcl