小弟求高手解决几道题,在下面1、2处添加适当的语句使之完美并说下这个程序是做什么的

大猛 发布于 2011/11/26 17:06
阅读 250
收藏 0
Tcl

proc array_sample { old_array_name new_array_name {pattern *} } {
# 1 (*)
upvar $old_array_name old_array $new_array_name new_array
# 2 (**)
pattern_list [array get old_array $pattern]
foreach {index value} $pattern_list {
set new_array($value) $index
}
}

 

Write a procedure that returns the specific index's bit value of a decimal number.(**)

proc bitValue {number index} {
#the number is a 16 bits integer.
#the index is a integer between 0 to 15
}

 

加载中
返回顶部
顶部