changed a bitwise word, updating usage for mersenne twister
parent
7aeeb2c9ce
commit
51ecc18cd8
|
@ -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 )
|
||||
|
|
Loading…
Reference in New Issue