changed a bitwise word, updating usage for mersenne twister

2008-11-11 13:03:42 -06:00 · 2008-11-11 13:03:42 -06:00 · 51ecc18cd8
parent 7aeeb2c9ce
commit 51ecc18cd8
1 changed files with 1 additions and 1 deletions
--- a/basis/random/mersenne-twister/mersenne-twister.factor
+++ b/basis/random/mersenne-twister/mersenne-twister.factor
@ -16,7 +16,7 @@ TUPLE: mersenne-twister seq i ;
 : mt-a HEX: 9908b0df ; inline

 : calculate-y ( n seq -- y )
-    [ nth 32 mask-bit ]
+    [ nth 31 mask-bit ]
    [ [ 1+ ] [ nth ] bi* 31 bits ] 2bi bitor ; inline

 : (mt-generate) ( n seq -- next-mt )