simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-07 11:45:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

bugfix in CCArray.shuffle

Browse source
This commit is contained in:
Simon Cruanes 2014-06-26 21:40:29 +02:00
parent 4c408d1182
commit 983b23046c
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
core/CCArray.ml
View file

@ -159,11 +159,11 @@ let rec _exists2 p a1 a2 i1 i2 j1 =
(* shuffle a[i...j[ using the given int random generator
See http://en.wikipedia.org/wiki/Fisher-Yates_shuffle *)
let _shuffle _rand_int a i j =
for k = i to j do
let l = _rand_int k in
for k = j-1 downto i+1 do
let l = _rand_int (k+1) in
let tmp = a.(l) in
a.(l) <- a.(k);
a.(l) <- tmp;
a.(k) <- tmp;
done
let _choose a i j st =