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

1. #  
2. #FUNC:获取[min, max)区间是随机浮点数  
3. #  
4. proc RandomRange { min max } {  
5.     # 获得[0.0,1.0)之间的随机数  
6.     set rd [expr rand()]  
7.       
8.     # 将$rd放大到[$min, $max)  
9.     set result [expr $rd * ($max - $min) + $min]  
10.       
11.     return $result  
12. }  
13.   
14. #  
15. #FUNC:获取[min, max)区间是随机整数  
16. #  
17. proc RandomRangeInt { min max } {  
18.     return [expr int([RandomRange $min $max])]  
19. }  
20.   
21. # 调用3000次RandomRangeInt测试  
22. for {set i 0} {$i < 3000} {incr i} {  
23.     puts [RandomRangeInt 10 300]  
24. }  
25.   
26. puts "\r\nPress ENTER to continue.\r\n"  
27. gets stdin