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

 

https://blog.csdn.net/GhostFromHeaven/article/details/8170313