Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clean-libraries
Commits
8d41d8de
Commit
8d41d8de
authored
Jan 16, 2009
by
John van Groningen
Browse files
swap IF_INT_64_OR_32 arguments in init function
parent
dce7c00b
Changes
1
Hide whitespace changes
Inline
Side-by-side
libraries/MersenneTwister/MersenneTwister.icl
View file @
8d41d8de
...
...
@@ -55,7 +55,7 @@ where
init_i
::
!
Int
!*{#
Int
}
!
Int
->
*{#
Int
}
init_i
i
mt
n
|
i
<
N
#
n
=
IF_INT_64_OR_32
(
n
*
69069
)
((
n
bitxor
(
shiftRight
n
62
))
*
6364136223846793005
+
i
);
#
n
=
IF_INT_64_OR_32
((
n
bitxor
(
shiftRight
n
62
))
*
6364136223846793005
+
i
)
(
n
*
69069
)
;
=
init_i
(
i
+1
)
{
mt
&
[
i
]
=
n
}
n
=
mt
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment