Source file array.ml

# 1 "submodules/dune/otherlibs/stdune/array.ml"
include ArrayLabels

let equal f x y =
  let open Stdlib.Array in
  let len = length x in
  if len <> length y then
    false
  else
    try
      for i = 0 to len - 1 do
        if not (f (get x i) (get y i)) then raise_notrace Exit
      done;
      true
    with
    | Exit -> false