--- a/RandomTT800.st Wed Dec 20 20:41:28 2000 +0100
+++ b/RandomTT800.st Tue Jan 09 14:32:45 2001 +0100
@@ -53,12 +53,12 @@
!RandomTT800 class methodsFor:'documentation'!
-LICENSE
+LICENSE
"
PLEASE READ THE FOLLOWING NOTICE AND DISCLAIMER CAREFULLY
BEFORE DOWNLOADING THIS SOFTWARE. BY DOWNLOADING THIS SOFTWARE
YOU ARE AGREEING TO BE BOUND BY THESE TERMS. IF YOU DO NOT AGREE
- TO THE TERMS, DO NOT DOWNLOAD.
+ TO THE TERMS, DO NOT DOWNLOAD.
This software (Software), provided by IBM Corporation, may
contain, or be derived from, code provided by Apple Computer,
@@ -152,6 +152,12 @@
documentation
"
+ NO WARRANTY
+
+ Slightly adapted Squeak code for fileIn into ST/X.
+ The original comment was:
+
+
A pseudo-random number generator; see below for references.
This generator is much slower than Squeak's Random class.
It automatically seeds itself based on the millisecond clock.
@@ -306,21 +312,6 @@
PopUpMenu notify: 'The expected results were obtained.'
! !
-!RandomTT800 methodsFor:'initialization'!
-
-initialize
- N := 25.
- M := 7.
-
- k := 0.
-
- "x := self class initialSeeds. (Done in #seed:) "
- self seed: Time millisecondClockValue.
-
- " this is magic vector `a', don't change "
- mag01 := { 16r0. 16r8EBFD028 }.
-! !
-
!RandomTT800 methodsFor:'operation'!
next
@@ -343,6 +334,19 @@
!RandomTT800 methodsFor:'private'!
+initialize
+ N := 25.
+ M := 7.
+
+ k := 0.
+
+ "x := self class initialSeeds. (Done in #seed:) "
+ self seed: Time millisecondClockValue.
+
+ " this is magic vector `a', don't change "
+ mag01 := #( 16r0 16r8EBFD028 ).
+!
+
nextInteger
" Answer the next random number in its raw integer form "
| y kk jLast |
@@ -398,5 +402,5 @@
!RandomTT800 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/RandomTT800.st,v 1.1 2000-12-20 18:46:42 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/RandomTT800.st,v 1.2 2001-01-09 13:32:45 cg Exp $'
! !