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