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

random.mersenne-twister: fix name of stack effect.

db4
John Benediktsson 2014-02-09 11:00:57 -08:00
parent c2c89152e3
commit 9aa160ad91
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -23,7 +23,7 @@ CONSTANT: a uint-array{ 0 0x9908b0df }
[ 2/ ] [ 1 bitand a nth ] bi bitxor bitxor [ 2/ ] [ 1 bitand a nth ] bi bitxor bitxor
] 2keep set-nth-unsafe ; inline ] 2keep set-nth-unsafe ; inline
: mt-steps ( k k+1 k+m n seq -- ) : mt-steps ( k+m k+1 k n seq -- )
[ mt-step ] curry [ 3keep [ 1 + ] tri@ ] curry times 3drop ; inline [ mt-step ] curry [ 3keep [ 1 + ] tri@ ] curry times 3drop ; inline
: mt-generate ( mt -- ) : mt-generate ( mt -- )