Base.ArraySourceinclude Binary_searchable.S1 with type 'a t := 'a tSee Binary_search.binary_search in binary_search.ml
See Binary_search.binary_search_segmented in binary_search.ml
Refer to this in code that hacks around array's current lack of value_or_null mod non_float support. When the appropriate compiler features land, we will remove this binding and fix up relevant client code.
include Indexed_container.S1_with_creators__''base_or_null_with_ext''
with type ('a : value_or_null mod separable) t := 'a t
with type ('a : bits64 mod separable) t__bits64 = 'a t
and type ('a : bits32 mod separable) t__bits32 = 'a t
and type ('a : word mod separable) t__word = 'a t
and type ('a : float64 mod separable) t__float64 = 'a t
and type ('a : float32 mod separable) t__float32 = 'a t
and type ('a : (value_or_null mod external64) mod separable) t__'value_or_null_mod_external64' =
'a tinclude Container.S1__''base_or_null_with_ext''
with type ('a : value_or_null mod separable) t := 'a t
with type ('a : bits64 mod separable) t__bits64 = 'a t
with type ('a : bits32 mod separable) t__bits32 = 'a t
with type ('a : word mod separable) t__word = 'a t
with type ('a : float64 mod separable) t__float64 = 'a t
with type ('a : float32 mod separable) t__float32 = 'a t
with type ('a : (value_or_null mod external64) mod separable) t__'value_or_null_mod_external64' =
'a tinclude sig ... endinclude sig ... endThese are all like their equivalents in Container except that an index starting at 0 is added as the first argument to f.
include Container.S1_with_creators__''base_or_null_with_ext''
with type ('a : bits64 mod separable) t__bits64 := 'a t__bits64
and type ('a : bits32 mod separable) t__bits32 := 'a t__bits32
and type ('a : word mod separable) t__word := 'a t__word
and type ('a : float64 mod separable) t__float64 := 'a t__float64
and type ('a : float32 mod separable) t__float32 := 'a t__float32
and type ('a : value_or_null mod separable) t := 'a t
and type ('a : (value_or_null mod external64) mod separable) t__'value_or_null_mod_external64' :=
'a t__'value_or_null_mod_external64'include sig ... endinclude sig ... endinclude sig ... endinclude sig ... endinclude sig ... endinclude sig ... endinclude sig ... endinclude sig ... endinclude sig ... endinclude sig ... endinclude sig ... endval sexp_of_t :
('a : value_or_null mod separable). ('a -> Sexplib0.Sexp.t) ->
'a t ->
Sexplib0.Sexp.tval sexp_of_t__stack :
('a : value_or_null mod separable). ('a @ local -> Sexplib0.Sexp.t @ local) ->
'a t @ local ->
Sexplib0.Sexp.t @ localval t_of_sexp :
('a : value_or_null mod separable). (Sexplib0.Sexp.t -> 'a) ->
Sexplib0.Sexp.t ->
'a tinclude sig ... endval t_sexp_grammar :
('a : value_or_null mod separable). 'a Sexplib0.Sexp_grammar.t ->
'a t Sexplib0.Sexp_grammar.t @@ portableinclude Indexed_container.S1_with_creators__''value_or_null''
with type ('a : value_or_null mod separable) t := 'a tinclude Container.S1__''value_or_null''
with type ('a : value_or_null mod separable) t := 'a tinclude sig ... endinclude sig ... endThese are all like their equivalents in Container except that an index starting at 0 is added as the first argument to f.
val iteri :
('a : value_or_null mod separable) 'p1 'p2. ('a, 'p1, 'p2)
{t}5/shadowed/(8f9e3060c4c689c937aa7d214ca25fca) ->
f:
(int ->
('a {elt}6/shadowed/(8f9e3060c4c689c937aa7d214ca25fca) ->
unit) @ local) @ local ->
unitval existsi :
('a : value_or_null mod separable) 'p1 'p2. ('a, 'p1, 'p2)
{t}5/shadowed/(8f9e3060c4c689c937aa7d214ca25fca) ->
f:
(int ->
('a {elt}6/shadowed/(8f9e3060c4c689c937aa7d214ca25fca) ->
bool) @ local) @ local ->
boolval for_alli :
('a : value_or_null mod separable) 'p1 'p2. ('a, 'p1, 'p2)
{t}5/shadowed/(8f9e3060c4c689c937aa7d214ca25fca) ->
f:
(int ->
('a {elt}6/shadowed/(8f9e3060c4c689c937aa7d214ca25fca) ->
bool) @ local) @ local ->
boolval counti :
('a : value_or_null mod separable) 'p1 'p2. ('a, 'p1, 'p2)
{t}5/shadowed/(8f9e3060c4c689c937aa7d214ca25fca) ->
f:
(int ->
('a {elt}6/shadowed/(8f9e3060c4c689c937aa7d214ca25fca) ->
bool) @ local) @ local ->
intval foldi :
('a : value_or_null mod separable) 'p1 'p2 ('acc : value_or_null).
('a, 'p1, 'p2) {t}5/shadowed/(8f9e3060c4c689c937aa7d214ca25fca) ->
init:'acc ->
f:
(int ->
('acc ->
('a {elt}6/shadowed/(8f9e3060c4c689c937aa7d214ca25fca) ->
'acc) @ local) @ local) @ local ->
'accval iteri_until :
('a : value_or_null mod separable) 'p1 'p2 ('final : value_or_null).
('a, 'p1, 'p2) {t}5/shadowed/(8f9e3060c4c689c937aa7d214ca25fca) ->
f:
(int ->
('a {elt}6/shadowed/(8f9e3060c4c689c937aa7d214ca25fca) ->
(unit, 'final) Container.Continue_or_stop.t) @ local) @ local ->
finish:(int -> 'final) @ local ->
'finalval find_mapi :
('a : value_or_null mod separable) 'p1 'p2 ('b : value_or_null). ('a,
'p1,
'p2)
{t}5/shadowed/(8f9e3060c4c689c937aa7d214ca25fca) ->
f:
(int ->
('a {elt}6/shadowed/(8f9e3060c4c689c937aa7d214ca25fca) ->
'b option) @ local) @ local ->
'b optionval foldi_until :
('a : value_or_null mod separable) 'p1 'p2 ('acc : value_or_null) ('final : value_or_null).
('a, 'p1, 'p2) {t}5/shadowed/(8f9e3060c4c689c937aa7d214ca25fca) ->
init:'acc ->
f:
(int ->
('acc ->
('a {elt}6/shadowed/(8f9e3060c4c689c937aa7d214ca25fca) ->
('acc, 'final) Container.Continue_or_stop.t) @ local) @ local) @ local ->
finish:(int -> ('acc -> 'final) @ local) @ local ->
'finalval findi :
('a : value_or_null mod separable) 'p1 'p2. ('a, 'p1, 'p2) t ->
f:(int -> ('a elt -> bool) @ local) @ local ->
(int * 'a elt) optioninclude Container.S1_with_creators__''value_or_null''
with type ('a : value_or_null mod separable) t := 'a tinclude sig ... enditer must allow exceptions raised in f to escape, terminating the iteration cleanly. The same holds for all functions below taking an f.
val exists :
('a : value_or_null mod separable) 'p1 'p2. 'a t ->
f:('a -> bool) @ local ->
boolReturns true if and only if there exists an element for which the provided function evaluates to true. This is a short-circuiting operation.
val for_all :
('a : value_or_null mod separable) 'p1 'p2. 'a t ->
f:('a -> bool) @ local ->
boolReturns true if and only if the provided function evaluates to true for all elements. This is a short-circuiting operation.
Returns the number of elements for which the provided function evaluates to true.
val find :
('a : value_or_null mod separable) 'p1 'p2. 'a t ->
f:('a -> bool) @ local ->
'a optionReturns as an option the first element for which f evaluates to true.
val min_elt :
('a : value_or_null mod separable) 'p1 'p2. 'a t ->
compare:('a -> ('a -> int) @ local) @ local ->
'a optionReturns a min (resp. max) element from the collection using the provided compare function. In case of a tie, the first element encountered while traversing the collection is returned. The implementation uses fold so it has the same complexity as fold. Returns None iff the collection is empty.
val sum :
('a : value_or_null mod separable) ('sum : value_or_null) 'p1 'p2.
(module Container.Summable
with type t = 'sum) ->
'a t ->
f:('a -> 'sum) @ local ->
'sumReturns the sum of f i for all i in the container. The order in which the elements will be summed is unspecified.
val iter_until :
('a : value_or_null mod separable) 'p1 'p2 ('final : value_or_null).
'a t ->
f:('a -> (unit, 'final) Container.Continue_or_stop.t) @ local ->
finish:(unit -> 'final) @ local ->
'finaliter_until t ~f ~finish is a short-circuiting version of iter. If f returns Stop x the computation ceases and returns x. If f always returns Continue () the final result is computed by finish.
val fold :
('a : value_or_null mod separable) 'p1 'p2 ('acc : value_or_null).
'a t ->
init:'acc ->
f:('acc -> ('a -> 'acc) @ local) @ local ->
'accfold t ~init ~f returns f (... f (f (f init e1) e2) e3 ...) en, where e1..en are the elements of t.
val fold_result :
('a : value_or_null mod separable) 'p1 'p2 ('acc : value_or_null) 'e.
'a t ->
init:'acc ->
f:('acc -> ('a -> ('acc, 'e) result) @ local) @ local ->
('acc, 'e) resultfold_result t ~init ~f is a short-circuiting version of fold that runs in the Result monad. If f returns an Error _, that value is returned without any additional invocations of f.
include sig ... endval fold_until :
('a : value_or_null mod separable) 'p1 'p2 ('acc : value_or_null) ('final : value_or_null).
'a t ->
init:'acc ->
f:
('acc -> ('a -> ('acc, 'final) Container.Continue_or_stop.t) @ local) @ local ->
finish:('acc -> 'final) @ local ->
'finalfold_until t ~init ~f ~finish is a short-circuiting version of fold. If f returns Stop _ the computation ceases and results in that value. If f returns Continue _, the fold will proceed. If f never returns Stop _, the final result is computed by finish.
Example:
type maybe_negative =
| Found_negative of int
| All_nonnegative of { sum : int }
(** [first_neg_or_sum list] returns the first negative number in [list], if any,
otherwise returns the sum of the list. *)
let first_neg_or_sum =
List.fold_until ~init:0
~f:(fun sum x ->
if x < 0
then Stop (Found_negative x)
else Continue (sum + x))
~finish:(fun sum -> All_nonnegative { sum })
;;
let x = first_neg_or_sum [1; 2; 3; 4; 5]
val x : maybe_negative = All_nonnegative {sum = 15}
let y = first_neg_or_sum [1; 2; -3; 4; 5]
val y : maybe_negative = Found_negative -3val mem :
('a : value_or_null mod separable) 'p1 'p2. 'a t ->
'a ->
equal:('a -> ('a -> bool) @ local) @ local ->
boolChecks whether the provided element is there, using equal.
include sig ... endE.g., append (of_list [a; b]) (of_list [c; d; e]) is of_list [a; b; c; d; e]
val filter :
('a : value_or_null mod separable) 'p1 'p2. 'a t ->
f:('a -> bool) @ local ->
'a tfilter t ~f returns all the elements of t that satisfy the predicate f.
val partition_tf :
('a : value_or_null mod separable) 'p1 'p2. 'a t ->
f:('a -> bool) @ local ->
'a t * 'a tpartition_tf t ~f returns a pair t1, t2, where t1 is all elements of t that satisfy f, and t2 is all elements of t that do not satisfy f. The "tf" suffix is mnemonic to remind readers that the result is (trues, falses).
val filteri :
('a : value_or_null mod separable) 'p1 'p2. ('a, 'p1, 'p2)
{t}132/shadowed/(8f9e3060c4c689c937aa7d214ca25fca) ->
f:
(int ->
('a {elt}133/shadowed/(8f9e3060c4c689c937aa7d214ca25fca) ->
bool) @ local) @ local ->
('a, 'p1, 'p2) {t}132/shadowed/(8f9e3060c4c689c937aa7d214ca25fca)val mapi :
('a : value_or_null mod separable) 'p1 'p2 ('b : value_or_null mod separable).
('a, 'p1, 'p2) {t}132/shadowed/(8f9e3060c4c689c937aa7d214ca25fca) ->
f:
(int ->
('a {elt}133/shadowed/(8f9e3060c4c689c937aa7d214ca25fca) ->
'b {elt}133/shadowed/(8f9e3060c4c689c937aa7d214ca25fca)) @ local) @ local ->
('b, 'p1, 'p2) {t}132/shadowed/(8f9e3060c4c689c937aa7d214ca25fca)mapi is like map. Additionally, it passes in the index of each element as the first argument to the mapped function.
val filter_mapi :
('a : value_or_null mod separable) 'p1 'p2 ('b : value_or_null mod separable).
('a, 'p1, 'p2) {t}132/shadowed/(8f9e3060c4c689c937aa7d214ca25fca) ->
f:
(int ->
('a {elt}133/shadowed/(8f9e3060c4c689c937aa7d214ca25fca) ->
'b {elt}133/shadowed/(8f9e3060c4c689c937aa7d214ca25fca) option) @ local) @ local ->
('b, 'p1, 'p2) {t}132/shadowed/(8f9e3060c4c689c937aa7d214ca25fca)filter_mapi is like filter_map. Additionally, it passes in the index of each element as the first argument to the mapped function.
val concat_mapi :
('a : value_or_null mod separable) 'p1 'p2 ('b : value_or_null mod separable).
('a, 'p1, 'p2) {t}132/shadowed/(8f9e3060c4c689c937aa7d214ca25fca) ->
f:
(int ->
('a {elt}133/shadowed/(8f9e3060c4c689c937aa7d214ca25fca) ->
('b, 'p1, 'p2) {t}132/shadowed/(8f9e3060c4c689c937aa7d214ca25fca)) @ local) @ local ->
('b, 'p1, 'p2) {t}132/shadowed/(8f9e3060c4c689c937aa7d214ca25fca)concat_mapi t ~f is like concat_map. Additionally, it passes the index as an argument.
val partition_mapi :
('a : value_or_null mod separable) 'p1 'p2 ('b : value_or_null mod separable) ('c : value_or_null mod separable).
('a, 'p1, 'p2) {t}132/shadowed/(8f9e3060c4c689c937aa7d214ca25fca) ->
f:
(int ->
('a {elt}133/shadowed/(8f9e3060c4c689c937aa7d214ca25fca) ->
('b {elt}133/shadowed/(8f9e3060c4c689c937aa7d214ca25fca),
'c {elt}133/shadowed/(8f9e3060c4c689c937aa7d214ca25fca))
Base__.Either0.t) @ local) @ local ->
('b, 'p1, 'p2) {t}132/shadowed/(8f9e3060c4c689c937aa7d214ca25fca)
* ('c, 'p1, 'p2) {t}132/shadowed/(8f9e3060c4c689c937aa7d214ca25fca)partition_mapi t ~f is like partition_map. Additionally, it passes the index as an argument.
include Invariant.S1 with type 'a t := 'a tMaximum length of a normal array. The maximum length of a float array is max_length/2 on 32-bit machines and max_length on 64-bit machines.
Array.get a n returns the element number n of array a. The first element has number 0. The last element has number Array.length a - 1. You can also write a.(n) instead of Array.get a n.
Raise Invalid_argument "index out of bounds" if n is outside the range 0 to (Array.length a - 1).
Like get, but returns None instead of raising.
Array.set a n x modifies array a in place, replacing element number n with x. You can also write a.(n) <- x instead of Array.set a n x.
Raise Invalid_argument "index out of bounds" if n is outside the range 0 to Array.length a - 1.
Unsafe version of get. Can cause arbitrary behavior when used for an out-of-bounds array access.
Unsafe version of set. Can cause arbitrary behavior when used for an out-of-bounds array access.
create ~len x creates an array of length len with the value x populated in each element.
create_local ~len x is like create. It allocates the array on the local stack. The array's elements are still global.
magic_create_uninitialized ~len creates an array of length len with uninitialized elements -- that is, they may contain arbitrary, nondeterministic 'a values. This can be significantly faster than using create.
magic_create_uninitialized can only be used for GC-ignorable arrays not involving tagged immediates and arrays of elements with unboxed number layout. The compiler rejects attempts to use magic_create_uninitialized to produce e.g. an ('a : value) array.
magic_create_uninitialized can break abstraction boundaries and type safety (e.g. by creating phony witnesses to type equality) and so should be used with caution.
create_float_uninitialized ~len creates a float array of length len with uninitialized elements -- that is, they may contain arbitrary, nondeterministic float values. This can be significantly faster than using create, when unboxed float array representations are enabled.
init n ~f creates an array of length n with index i set to f i.
Array.make_matrix dimx dimy e returns a two-dimensional array (an array of arrays) with first dimension dimx and second dimension dimy. All the elements of this new matrix are initially physically equal to e. The element (x,y) of a matrix m is accessed with the notation m.(x).(y).
Raise Invalid_argument if dimx or dimy is negative or greater than Array.max_length.
If the value of e is a floating-point number, then the maximum size is only Array.max_length / 2.
Array.copy_matrix t returns a fresh copy of the array of arrays t. This is typically used when t is a matrix created by Array.make_matrix.
Like Array.append, but concatenates a list of arrays.
Array.copy a returns a copy of a, that is, a fresh array containing the same elements as a.
val fill :
('a : value_or_null mod separable). 'a t @ local ->
pos:int ->
len:int ->
'a ->
unitArray.fill a ofs len x modifies the array a in place, storing x in elements number ofs to ofs + len - 1.
Raise Invalid_argument "Array.fill" if ofs and len do not designate a valid subarray of a.
Array.blit v1 o1 v2 o2 len copies len elements from array v1, starting at element number o1, to array v2, starting at element number o2. It works correctly even if v1 and v2 are the same array, and the source and destination chunks overlap.
Raise Invalid_argument "Array.blit" if o1 and len do not designate a valid subarray of v1, or if o2 and len do not designate a valid subarray of v2.
int_blit and float_blit provide fast bound-checked blits for immediate data types. The unsafe versions do not bound-check the arguments.
include sig ... endfolding_map is a version of map that threads an accumulator through calls to f.
val fold_map :
'a t ->
init:'acc ->
f:('acc -> ('a -> 'acc * 'b) @ local) @ local ->
'acc * 'b tArray.fold_map is a combination of Array.fold and Array.map that threads an accumulator through calls to f.
All sort functions in this module sort in increasing order by default.
val sort :
('a : value_or_null mod separable). ?pos:int ->
?len:int ->
'a t @ local ->
compare:('a -> ('a -> int) @ local) @ local ->
unitsort uses constant heap space. stable_sort uses linear heap space.
To sort only part of the array, specify pos to be the index to start sorting from and len indicating how many elements to sort.
val is_sorted_strictly :
('a : value_or_null mod separable). 'a t @ local ->
compare:('a -> ('a -> int) @ local) @ local ->
boolis_sorted_strictly xs ~compare iff is_sorted xs ~compare and no two consecutive elements in xs are equal according to compare.
val merge :
('a : value_or_null mod separable). 'a t ->
'a t ->
compare:('a -> ('a -> int) @ local) @ local ->
'a tMerges two arrays: assuming that a1 and a2 are sorted according to the comparison function compare, merge a1 a2 ~compare will return a sorted array containing all the elements of a1 and a2. If several elements compare equal, the elements of a1 will be before the elements of a2.
include sig ... endtranspose in the sense of a matrix transpose. It returns None if the arrays are not all the same length.
filter_opt array returns a new array where None entries are omitted and Some x entries are replaced with x. Note that this changes the index at which elements will appear.
Functions with the 2 suffix raise an exception if the lengths of the two given arrays aren't the same.
find_exn f t returns the first a in t for which f t.(i) is true. It raises Stdlib.Not_found or Not_found_s if there is no such a.
swap arr i j swaps the value at index i with that at index j.
rev_inplace t reverses t in place.
of_list_rev l converts from list then reverses in place.
val find_map_exn :
('a : value_or_null mod separable) ('b : value_or_null). 'a t ->
f:('a -> 'b option) @ local ->
'bReturns the first evaluation of f that returns Some. Raises Stdlib.Not_found or Not_found_s if f always returns None.
val find_mapi_exn :
('a : value_or_null mod separable) ('b : value_or_null). 'a t ->
f:(int -> ('a -> 'b option) @ local) @ local ->
'bfind_mapi_exn is like find_map_exn but passes the index as an argument.
val of_list_map :
('a : value_or_null) ('b : value_or_null mod separable). 'a list ->
f:('a -> 'b) @ local ->
'b tof_list_map l ~f is the same as of_list (List.map l ~f).
val of_list_mapi :
('a : value_or_null) ('b : value_or_null mod separable). 'a list ->
f:(int -> ('a -> 'b) @ local) @ local ->
'b tof_list_mapi l ~f is the same as of_list (List.mapi l ~f).
val of_list_rev_map :
('a : value_or_null) ('b : value_or_null mod separable). 'a list ->
f:('a -> 'b) @ local ->
'b tof_list_rev_map l ~f is the same as of_list (List.rev_map l ~f).
val of_list_rev_mapi :
('a : value_or_null) ('b : value_or_null mod separable). 'a list ->
f:(int -> ('a -> 'b) @ local) @ local ->
'b tof_list_rev_mapi l ~f is the same as of_list (List.rev_mapi l ~f).
val for_all2_exn :
('a : value_or_null mod separable) ('b : value_or_null mod separable).
'a t ->
'b t ->
f:('a -> ('b -> bool) @ local) @ local ->
boolfor_all2_exn t1 t2 ~f fails if length t1 <> length t2.
val exists2_exn :
('a : value_or_null mod separable) ('b : value_or_null mod separable).
'a t ->
'b t ->
f:('a -> ('b -> bool) @ local) @ local ->
boolexists2_exn t1 t2 ~f fails if length t1 <> length t2.
Like find but returning or_null instead of option.
Like findi but returning or_null instead of option.
include sig ... endFor backwards compatibility, we return a boxed product for the value-only version of findi_exn (instead of a value & value product)
val find_consecutive_duplicate :
'a t ->
equal:('a -> ('a -> bool) @ local) @ local ->
('a * 'a) optionfind_consecutive_duplicate t ~equal returns the first pair of consecutive elements (a1, a2) in t such that equal a1 a2. They are returned in the same order as they appear in t.
reduce f [a1; ...; an] is Some (f (... (f (f a1 a2) a3) ...) an). Returns None on the empty array.
permute ?random_state ?pos ?len t randomly permutes t in place.
To permute only part of the array, specify pos to be the index to start permuting from and len indicating how many elements to permute.
permute side-effects random_state by repeated calls to Random.State.int. If random_state is not supplied, permute uses Random.State.default.
random_element ?random_state t is None if t is empty, else it is Some x for some x chosen uniformly at random from t.
random_element side-effects random_state by calling Random.State.int. If random_state is not supplied, random_element uses Random.State.default.
split_n t n returns a pair of arrays (first, second) where first contains the first n elements of t and second contains the remaining elements.
n >= length t, returns (t, [||]).n <= 0, returns ([||], t).chunks_of t ~length returns an array of arrays whose concatenation is equal to the original array. Every array has length elements, except for possibly the last array, which may have fewer. chunks_of raises if length <= 0.
sorted_copy ar compare returns a shallow copy of ar that is sorted. Similar to List.sort
The input array is copied internally so that future modifications of it do not change the sequence.
The input array is shared with the sequence and modifications of it will result in modification of the sequence.