2 lines
101 B
Plaintext
2 lines
101 B
Plaintext
|
{n max} {set aret [list]; foreach z [nist_rand {} $n] {lappend aret [expr $z % $max]}; return $aret}
|