Tcl 8.0 added the rand() expr function. Here's a simple way to return the random number in a range.
Tcl, 13 lines
Download
Copy to clipboard1 2 3 4 5 6 7 8 9 10 11 12 13 | # random --
#
# Return a number in the range 0 .. $range-1
#
# Arguments:
# range integer range constraint
#
# Results:
# Number in range [0..$range)
#
proc random {{range 100}} {
return [expr {int(rand()*$range)}]
}
|
Tcl's rand() function is tied to the system's C rand() implementation. This is a pseudo-random number generated not at all meant to be of cryptographic quality. See http://mini.net/tcl/1549.html for more background information.
Tcl does not call C's rand(). The discussion is incorrect. Tcl implements its own pseudo-random number generator. It does not call the system rand().