--- a/RandomKISS.st Wed Oct 01 15:19:17 2014 +0200
+++ b/RandomKISS.st Wed Oct 01 15:23:26 2014 +0200
@@ -302,17 +302,17 @@
|t|
"/ Linear Congruencegenerator
- x := (314527869 * x) + 1234567.
+ x := (69069 * x) + 12345.
x := x bitAnd:16rFFFFFFFF.
"/ Xorshift
- y := y bitXor:(y << 22).
+ y := y bitXor:(y << 13).
y := y bitXor:(y >> 17).
y := y bitXor:(y << 5).
y := y bitAnd:16rFFFFFFFF.
"/ Multiply-with-carry
- t := (4294584393 * z) + c.
+ t := (698769069 * z) + c.
c := t >> 32.
z := t bitAnd:16rFFFFFFFF.
@@ -322,10 +322,10 @@
!RandomKISS class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/RandomKISS.st,v 1.1 2014-10-01 13:18:07 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/RandomKISS.st,v 1.2 2014-10-01 13:23:26 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic2/RandomKISS.st,v 1.1 2014-10-01 13:18:07 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/RandomKISS.st,v 1.2 2014-10-01 13:23:26 cg Exp $'
! !