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

Use fry instead of curry

db4
Slava Pestov 2008-12-03 10:45:06 -06:00
parent 378bedd1e0
commit 4c6af1cc9f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/random/mersenne-twister/mersenne-twister.factor
View File

@ -44,9 +44,9 @@ TUPLE: mersenne-twister { seq uint-array } { i fixnum } ;
dupd wrap-nth dup -30 shift bitxor 1812433253 * + 1+ 32 bits ; inline dupd wrap-nth dup -30 shift bitxor 1812433253 * + 1+ 32 bits ; inline
: init-mt-rest ( seq -- ) : init-mt-rest ( seq -- )
mt-n 1- swap [ mt-n 1- swap '[
[ init-mt-formula ] [ [ 1+ ] dip set-wrap-nth ] 2bi _ [ init-mt-formula ] [ [ 1+ ] dip set-wrap-nth ] 2bi
] curry each ; inline ] each ; inline
: init-mt-seq ( seed -- seq ) : init-mt-seq ( seed -- seq )
32 bits mt-n <uint-array> 32 bits mt-n <uint-array>