如何用tcl语言中的for循环生成一个list?
假如我有一个数$num, 用一个for循环如何生成一个list,满足这样的要求：
如果 $num 为2，则list 为{1 1 2}
如果 $num 为3，则list 为{1 1 1 3}
如果 $num 为4，则list 为{1 1 1 1 4},依次类推。
请各位帮忙
[解决办法]
set mylist {}
for {set i 0} {$i < $num} {incr i} {
lappend mylist 1
}
lappend mylist $num
