Skip to content

GitLab

Commit 8d41d8de authored by John van Groningen's avatar John van Groningen
Browse files

swap IF_INT_64_OR_32 arguments in init function

parent dce7c00b
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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment