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

test for CCArray.shuffle

Browse source
This commit is contained in:
Simon Cruanes 2014-06-26 21:55:20 +02:00
parent 983b23046c
commit 6ae3e5b283
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
core/CCArray.ml
View file

@ -166,6 +166,11 @@ let _shuffle _rand_int a i j =
a.(k) <- tmp; a.(k) <- tmp;
done done
(*$T
let st = Random.State.make [||] in let a = 0--10000 in \
let b = Array.copy a in shuffle_with st a; a <> b
*)
let _choose a i j st = let _choose a i j st =
if i>=j then raise Not_found; if i>=j then raise Not_found;
a.(i+Random.int (j-i)) a.(i+Random.int (j-i))