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

最新推荐文章于 2026-05-18 06:58:27 发布

原创最新推荐文章于 2026-05-18 06:58:27 发布 · 1.2w 阅读

4 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

GhostFromHeaven 同时被 2 个专栏收录

13 篇文章

订阅专栏

TCL

1 篇文章

订阅专栏

本文详细介绍了如何使用特定的函数来生成[min,max)区间内的随机浮点数和随机整数，并通过大量测试验证其正确性。

#
#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