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

remove most of the overhead in cmwc, it's fast now

db4
Doug Coleman 2009-10-16 16:08:59 -05:00
parent 741f19ab2f
commit 65a2419134
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

@ -41,9 +41,9 @@ M:: cmwc random-32* ( cmwc -- n )
[ [ i>> ] [ Q>> ] bi nth-unsafe * ] [ [ i>> ] [ Q>> ] bi nth-unsafe * ]
[ c>> + ] tri [ c>> + ] tri
[ -32 shift cmwc (>>c) ] [ >fixnum -32 shift cmwc (>>c) ]
[ cmwc [ b>> bitand ] [ c>> + ] bi 32 bits ] bi [ cmwc [ b>> bitand ] [ c>> + ] bi 32 bits ] bi
dup cmwc r>> > [ dup cmwc r>> > [
cmwc [ 1 + ] change-c drop cmwc [ 1 + ] change-c drop
cmwc b>> - 32 bits cmwc b>> - 32 bits