clean up random
parent
079cbbfb77
commit
9e82c69489
|
@ -36,9 +36,9 @@ M: f random-32* ( obj -- * ) no-random-number-generator ;
|
||||||
: random ( seq -- elt )
|
: random ( seq -- elt )
|
||||||
[ f ] [
|
[ f ] [
|
||||||
[
|
[
|
||||||
length dup log2 7 + 8 /i 1+ random-bytes
|
length dup log2 7 + 8 /i 1+
|
||||||
[ length 3 shift 2^ ] [ byte-array>bignum ] bi
|
[ random-bytes byte-array>bignum ]
|
||||||
swap / * >integer
|
[ 3 shift 2^ ] bi / * >integer
|
||||||
] keep nth
|
] keep nth
|
||||||
] if-empty ;
|
] if-empty ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue