equal
deleted
inserted
replaced
84 |
84 |
85 seed := self nextInteger. |
85 seed := self nextInteger. |
86 ^ seed * PMmu1 |
86 ^ seed * PMmu1 |
87 ! |
87 ! |
88 |
88 |
|
89 nextBoolean |
|
90 " This method generates a boolean " |
|
91 |
|
92 ^ self next > 0.5 |
|
93 ! |
|
94 |
89 nextInteger |
95 nextInteger |
90 " This method generates random instances of Integer in the interval 0 to 16r7FFFFFFF. " |
96 " This method generates random instances of Integer in the interval 0 to 16r7FFFFFFF. " |
91 |
97 |
92 seed := self peekInteger. |
98 seed := self peekInteger. |
93 ^ seed |
99 ^ seed |
127 ! ! |
133 ! ! |
128 |
134 |
129 !RandomParkMiller class methodsFor:'documentation'! |
135 !RandomParkMiller class methodsFor:'documentation'! |
130 |
136 |
131 version |
137 version |
132 ^ '$Header: /cvs/stx/stx/libbasic2/RandomParkMiller.st,v 1.4 2010-03-06 11:29:21 cg Exp $' |
138 ^ '$Header: /cvs/stx/stx/libbasic2/RandomParkMiller.st,v 1.5 2014-10-01 11:12:17 cg Exp $' |
133 ! |
139 ! |
134 |
140 |
135 version_CVS |
141 version_CVS |
136 ^ '$Header: /cvs/stx/stx/libbasic2/RandomParkMiller.st,v 1.4 2010-03-06 11:29:21 cg Exp $' |
142 ^ '$Header: /cvs/stx/stx/libbasic2/RandomParkMiller.st,v 1.5 2014-10-01 11:12:17 cg Exp $' |
137 ! ! |
143 ! ! |
138 |
144 |
|
145 |
139 RandomParkMiller initialize! |
146 RandomParkMiller initialize! |