1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
module Array0 = Stdlib.StdLabels.Array
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