Source file `array.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
module Array0 = Stdlib.StdLabels.Array

(* Added in OCaml 5.1 *)
let[@warning "-32"] find_index t ~f =
  let rec loop i =
    if i = Array0.length t
    then None
    else if f (Array0.unsafe_get t i)
    then Some i
    else loop (i + 1)
  in
  loop 0
;;

include Array0