changed a bitwise word, updating usage for mersenne twister

db4
Doug Coleman 2008-11-11 13:03:42 -06:00
parent 7aeeb2c9ce
commit 51ecc18cd8
1 changed files with 1 additions and 1 deletions

View File

@ -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 )