Is there a random generator in TCL/Tk?

[Wintercloak]

I have been looking for a random generator in TCL/Tk but I cant find anyone.
Is there other packages that provide one or is it possible to call for the C-functions: seed() and rand()?

 

[marsd]

rand() is what you want.

example:
proc foo {} {
set curr 0
set max 12000
while {$curr < $max} {
set curr [expr int(1 + rand() * [expr $max * 2])]
}
puts &quot;$curr&quot;
}

 

[Wintercloak]

Oh, rand() is &quot;hidden&quot; in expr.
Thank you very much.

...games without random numbers are boring 8)

/Wintercloak

 

[marsd]

Yep, I wouldn't play many of them that kept
giving me 1's on all my dice rolls. ;-)