package lsp

  1. Overview
  2. Docs
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file array.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
# 1 "submodules/dune/otherlibs/stdune-unstable/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
OCaml

Innovation. Community. Security.