clean up random

db4
Doug Coleman 2008-09-10 16:57:53 -05:00
parent 079cbbfb77
commit 9e82c69489
1 changed files with 3 additions and 3 deletions

View File

@ -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 ;