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

remove curry2 from mersenne.private...

db4
Doug Coleman 2008-03-31 15:31:51 -05:00
parent 0a63a8fb40
commit f49c72bb05
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/random/mersenne-twister/mersenne-twister.factor
View File

@ -9,9 +9,6 @@ IN: random.mersenne-twister
<PRIVATE <PRIVATE
: curry2 ( w quot1 quot2 -- quot1 quot2 )
>r over r> [ curry ] 2bi@ ; inline
TUPLE: mersenne-twister seq i ; TUPLE: mersenne-twister seq i ;
: mt-n 624 ; inline : mt-n 624 ; inline
@ -27,7 +24,7 @@ TUPLE: mersenne-twister seq i ;
r> bitxor bitxor r> r> set-nth ; inline r> bitxor bitxor r> r> set-nth ; inline
: calculate-y ( y1 y2 mt -- y ) : calculate-y ( y1 y2 mt -- y )
[ nth mt-hi ] [ nth mt-lo ] curry2 bi* bitor ; inline tuck [ nth mt-hi ] [ nth mt-lo ] 2bi* bitor ; inline
: (mt-generate) ( n mt-seq -- y to from-elt ) : (mt-generate) ( n mt-seq -- y to from-elt )
[ >r dup 1+ mt-wrap r> calculate-y ] [ >r dup 1+ mt-wrap r> calculate-y ]