equal
deleted
inserted
replaced
328 mt at:1 put:(s bitAnd:16rFFFFFFFF). |
328 mt at:1 put:(s bitAnd:16rFFFFFFFF). |
329 mti := 1. |
329 mti := 1. |
330 [mti < n] whileTrue:[ |
330 [mti < n] whileTrue:[ |
331 |t| |
331 |t| |
332 |
332 |
333 t := (1812433253 |
333 t := (1812433253 * ((mt at:(mti)) bitXor:((mt at:(mti)) >> 30))) + mti. |
334 * ((mt at:(mti)) bitXor:((mt at:(mti)) >> 30))) |
|
335 + mti. |
|
336 |
334 |
337 mt at:(mti+1) put:(t bitAnd:16rFFFFFFFF). |
335 mt at:(mti+1) put:(t bitAnd:16rFFFFFFFF). |
338 mti := mti + 1. |
336 mti := mti + 1. |
339 ]. |
337 ]. |
340 |
338 |
409 ! ! |
407 ! ! |
410 |
408 |
411 !RandomMT19937 class methodsFor:'documentation'! |
409 !RandomMT19937 class methodsFor:'documentation'! |
412 |
410 |
413 version |
411 version |
414 ^ '$Header: /cvs/stx/stx/libbasic2/RandomMT19937.st,v 1.8 2014-10-02 16:29:42 cg Exp $' |
412 ^ '$Header: /cvs/stx/stx/libbasic2/RandomMT19937.st,v 1.9 2014-10-02 16:31:10 cg Exp $' |
415 ! |
413 ! |
416 |
414 |
417 version_CVS |
415 version_CVS |
418 ^ '$Header: /cvs/stx/stx/libbasic2/RandomMT19937.st,v 1.8 2014-10-02 16:29:42 cg Exp $' |
416 ^ '$Header: /cvs/stx/stx/libbasic2/RandomMT19937.st,v 1.9 2014-10-02 16:31:10 cg Exp $' |
419 ! ! |
417 ! ! |
420 |
418 |