Lines Matching refs:seed
35 proc ::tcl::chan::random {seed} {
36 return [::chan create {read} [random::implementation new $seed]]
43 my variable seed next
44 set seed $theseed
45 set next [expr "([join $seed +]) & 0xff"]
66 variable seed
70 my variable seed next
72 set next [expr {(2*$next - [lindex $seed 0]) & 0xff}]
73 set seed [linsert [lrange $seed 1 end] end $result]