TCL脚本语言-生成指定区间的随机数-rand-RandomRange

#
#FUNC:获取[min, max)区间是随机浮点数
#
proc RandomRange { min max } {
    # 获得[0.0,1.0)之间的随机数
    set rd [expr rand()]
    
    # 将$rd放大到[$min, $max)
    set result [expr $rd * ($max - $min) + $min]
    
    return $result
}

#
#FUNC:获取[min, max)区间是随机整数
#
proc RandomRangeInt { min max } {
    return [expr int([RandomRange $min $max])]
}

# 调用3000次RandomRangeInt测试
for {set i 0} {$i < 3000} {incr i} {
    puts [RandomRangeInt 10 300]
}

puts "\r\nPress ENTER to continue.\r\n"
gets stdin