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

random.mersenne-twister: simplify seed-random.

char-rename
John Benediktsson 2016-07-11 14:00:15 -07:00
parent 6b12e2e3bc
commit 800d643c2d
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -64,9 +64,7 @@ PRIVATE>
M: mersenne-twister seed-random M: mersenne-twister seed-random
init-mt-seq >>seq init-mt-seq >>seq
[ mt-generate ] dup mt-generate ;
[ 0 >>i drop ]
[ ] tri ;
M: mersenne-twister random-32* M: mersenne-twister random-32*
[ next-index ] [ next-index ]