steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

random: be> is faster (and they are random anyway)...

db4
John Benediktsson 2011-10-11 22:31:21 -07:00
parent 4653df21cb
commit 950f1e1c04
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/random/random.factor
View File

@ -23,7 +23,7 @@ M: object random-bytes* ( n tuple -- byte-array )
[ 2drop ] [ random-32* 4 >le swap head append! ] if [ 2drop ] [ random-32* 4 >le swap head append! ] if
] bi-curry bi* ; ] bi-curry bi* ;
M: object random-32* ( tuple -- r ) 4 swap random-bytes* le> ; M: object random-32* ( tuple -- r ) 4 swap random-bytes* be> ;
ERROR: no-random-number-generator ; ERROR: no-random-number-generator ;
@ -41,7 +41,7 @@ M: f random-32* ( obj -- * ) no-random-number-generator ;
: random-integer ( n -- n' ) : random-integer ( n -- n' )
dup log2 7 + 8 /i 1 + dup log2 7 + 8 /i 1 +
[ random-bytes le> ] [ random-bytes be> ]
[ 3 shift 2^ ] bi / * >integer ; [ 3 shift 2^ ] bi / * >integer ;
PRIVATE> PRIVATE>