Handbook
Glossary
mt-generate ( mt -- )
Vocabulary
random.mersenne-twister.private
Inputs
mt
an
object
Outputs
None
Definition
USING:
accessors
kernel
math
;
IN:
random.mersenne-twister.private
:
mt-generate
( mt -- )
[
seq>>
[
[
m
1 0
n
m
-
]
dip
mt-steps
]
[
[
0
n
m
-
1
+
n
m
-
m
1
-
]
dip
mt-steps
]
[
[
m
1
-
0
n
1
-
]
dip
mt-step
]
tri
]
[
0
>>i
drop
]
bi
;
inline