首页 > 代码库 > TCL语言笔记：TCL练习
TCL语言笔记：TCL练习
一、关于随机数的练习
1.随机生成一个最大值到最小值之间的整数
proc random {min max} { return [expr round(($max-$min)*rand()+$min)] }2.生成num个min到max之间的不重复的随机整数
proc randomUnique {min max num} {
array set arr {}
#如果要求生成的数量超过max和min相减的个数+1
if {$num>[expr $max-$min+1]} {
return ""
}
#当生成的随机数量没有达到要求的数量，调用生成随机整数的函数
while {[array size arr]<$num} {
set x [random $min $max]
set arr($x) ""
}
return [array names arr]
}
3.随机的小写字母
proc randLow {} { return [format %c [random 97 122]]}4.随机的大写字母
proc randHigh {} { return [format %c [random 65 90]]}5.随机生成一个列表中的内容
proc randList {lst} { set id [random 0 [expr [llength $lst]-1]] return [lindex $lst $id]}6.生成一个随机的小写或者大写字母
proc randLH {} { return [rand[randList {Low High}]]}7.生成一个随机的大写、小写字母或数字
proc randLHN {} { return [rand[randList {Low High Num}]]}8.生成一个由小写、大写、数字构成的字符串，长度为在minLen和maxLen之间的随机值
proc randStrLHN {minLen maxLen} { set len [random $minLen $maxLen] set str "" for {set i 0} {$i<$len} {incr i} { append str [randLHN] } return $str}
TCL语言笔记：TCL练习
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。