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

make cmwc only 32 bits wide. oops, this speeds up everything

db4
Doug Coleman 2009-10-16 15:19:30 -05:00
parent 69f5381d34
commit 1375e32c62
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/random/cmwc/cmwc.factor
View File

@ -43,10 +43,10 @@ M:: cmwc random-32* ( cmwc -- n )
t -32 shift cmwc (>>c) t -32 shift cmwc (>>c)
t cmwc [ b>> bitand ] [ c>> + ] bi 64 bits t! t cmwc [ b>> bitand ] [ c>> + ] bi 32 bits t!
t cmwc r>> > [ t cmwc r>> > [
cmwc [ 1 + ] change-c drop cmwc [ 1 + ] change-c drop
t cmwc b>> - 64 bits t! t cmwc b>> - 32 bits t!
] when ] when
cmwc [ r>> t - 32 bits dup ] [ i>> ] [ Q>> ] tri set-nth ; cmwc [ r>> t - 32 bits dup ] [ i>> ] [ Q>> ] tri set-nth ;