From 51ecc18cd80af33fded2d4290ac49a3eff4a3daa Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 11 Nov 2008 13:03:42 -0600 Subject: [PATCH] changed a bitwise word, updating usage for mersenne twister --- basis/random/mersenne-twister/mersenne-twister.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/random/mersenne-twister/mersenne-twister.factor b/basis/random/mersenne-twister/mersenne-twister.factor index 712883e4b8..c31d338fac 100644 --- 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 )