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

fix: make Array.random_choose fail on empty array at creation time

Browse source 
see #246
This commit is contained in:
Simon Cruanes 2019-02-18 20:41:17 -06:00
parent c893716c1a
commit f190964cfd
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/core/CCArray.ml
View file

@ -515,10 +515,10 @@ let shuffle_with st a =
let rec _to_klist a i j () = let rec _to_klist a i j () =
if i=j then `Nil else `Cons (a.(i), _to_klist a (i+1) j) if i=j then `Nil else `Cons (a.(i), _to_klist a (i+1) j)
let random_choose a st = let random_choose a =
let n = Array.length a in let n = Array.length a in
if n = 0 then raise Not_found; if n = 0 then raise Not_found;
a.(Random.State.int st n) fun st -> a.(Random.State.int st n)
let random_len n g st = let random_len n g st =
Array.init n (fun _ -> g st) Array.init n (fun _ -> g st)