sig
type 'a sequence = ('a -> unit) -> unit
type 'a klist = unit -> [ `Cons of 'a * 'a CCArray.klist | `Nil ]
type 'a gen = unit -> 'a option
type 'a equal = 'a -> 'a -> bool
type 'a ord = 'a -> 'a -> int
type 'a random_gen = Random.State.t -> 'a
type 'a printer = Format.formatter -> 'a -> unit
external make : int -> 'a -> 'a array = "caml_make_vect"
external create : int -> 'a -> 'a array = "caml_make_vect"
external create_float : int -> float array = "caml_make_float_vect"
val make_float : int -> float array
val init : int -> (int -> 'a) -> 'a array
val make_matrix : int -> int -> 'a -> 'a array array
val create_matrix : int -> int -> 'a -> 'a array array
val append : 'a array -> 'a array -> 'a array
val concat : 'a array list -> 'a array
val sub : 'a array -> int -> int -> 'a array
val copy : 'a array -> 'a array
val fill : 'a array -> int -> int -> 'a -> unit
val to_list : 'a array -> 'a list
val of_list : 'a list -> 'a array
val mapi : (int -> 'a -> 'b) -> 'a array -> 'b array
val fold_left : ('a -> 'b -> 'a) -> 'a -> 'b array -> 'a
val fold_right : ('b -> 'a -> 'a) -> 'b array -> 'a -> 'a
val mem : 'a -> 'a array -> bool
val memq : 'a -> 'a array -> bool
val sort : ('a -> 'a -> int) -> 'a array -> unit
val stable_sort : ('a -> 'a -> int) -> 'a array -> unit
val fast_sort : ('a -> 'a -> int) -> 'a array -> unit
external unsafe_get : 'a array -> int -> 'a = "%array_unsafe_get"
external unsafe_set : 'a array -> int -> 'a -> unit = "%array_unsafe_set"
type 'a t = 'a array
val empty : 'a CCArray.t
val equal : 'a CCArray.equal -> 'a CCArray.t CCArray.equal
val compare : 'a CCArray.ord -> 'a CCArray.t CCArray.ord
val get : 'a CCArray.t -> int -> 'a
val get_safe : 'a CCArray.t -> int -> 'a option
val set : 'a CCArray.t -> int -> 'a -> unit
val length : 'a CCArray.t -> int
val fold : ('a -> 'b -> 'a) -> 'a -> 'b CCArray.t -> 'a
val foldi : ('a -> int -> 'b -> 'a) -> 'a -> 'b CCArray.t -> 'a
val fold_while :
('a -> 'b -> 'a * [ `Continue | `Stop ]) -> 'a -> 'b CCArray.t -> 'a
val fold_map :
('acc -> 'a -> 'acc * 'b) -> 'acc -> 'a CCArray.t -> 'acc * 'b CCArray.t
val scan_left :
('acc -> 'a -> 'acc) -> 'acc -> 'a CCArray.t -> 'acc CCArray.t
val iter : ('a -> unit) -> 'a CCArray.t -> unit
val iteri : (int -> 'a -> unit) -> 'a CCArray.t -> unit
val blit : 'a CCArray.t -> int -> 'a CCArray.t -> int -> int -> unit
val reverse_in_place : 'a CCArray.t -> unit
val sorted : ('a -> 'a -> int) -> 'a CCArray.t -> 'a array
val sort_indices : ('a -> 'a -> int) -> 'a CCArray.t -> int array
val sort_ranking : ('a -> 'a -> int) -> 'a CCArray.t -> int array
val find : ('a -> 'b option) -> 'a CCArray.t -> 'b option
val findi : (int -> 'a -> 'b option) -> 'a CCArray.t -> 'b option
val find_idx : ('a -> bool) -> 'a CCArray.t -> (int * 'a) option
val lookup : ?cmp:'a CCArray.ord -> 'a -> 'a CCArray.t -> int option
val lookup_exn : ?cmp:'a CCArray.ord -> 'a -> 'a CCArray.t -> int
val bsearch :
?cmp:('a -> 'a -> int) ->
'a ->
'a CCArray.t ->
[ `All_bigger | `All_lower | `At of int | `Empty | `Just_after of int ]
val for_all : ('a -> bool) -> 'a CCArray.t -> bool
val for_all2 : ('a -> 'b -> bool) -> 'a CCArray.t -> 'b CCArray.t -> bool
val exists : ('a -> bool) -> 'a CCArray.t -> bool
val exists2 : ('a -> 'b -> bool) -> 'a CCArray.t -> 'b CCArray.t -> bool
val fold2 :
('acc -> 'a -> 'b -> 'acc) ->
'acc -> 'a CCArray.t -> 'b CCArray.t -> 'acc
val iter2 : ('a -> 'b -> unit) -> 'a CCArray.t -> 'b CCArray.t -> unit
val shuffle : 'a CCArray.t -> unit
val shuffle_with : Random.State.t -> 'a CCArray.t -> unit
val random_choose : 'a CCArray.t -> 'a CCArray.random_gen
val to_seq : 'a CCArray.t -> 'a CCArray.sequence
val to_gen : 'a CCArray.t -> 'a CCArray.gen
val to_klist : 'a CCArray.t -> 'a CCArray.klist
val pp : ?sep:string -> 'a CCArray.printer -> 'a CCArray.t CCArray.printer
val pp_i :
?sep:string ->
(int -> 'a CCArray.printer) -> 'a CCArray.t CCArray.printer
val map : ('a -> 'b) -> 'a CCArray.t -> 'b CCArray.t
val map2 : ('a -> 'b -> 'c) -> 'a CCArray.t -> 'b CCArray.t -> 'c CCArray.t
val rev : 'a CCArray.t -> 'a CCArray.t
val filter : ('a -> bool) -> 'a CCArray.t -> 'a CCArray.t
val filter_map : ('a -> 'b option) -> 'a CCArray.t -> 'b CCArray.t
val flat_map : ('a -> 'b CCArray.t) -> 'a CCArray.t -> 'b array
val ( >>= ) : 'a CCArray.t -> ('a -> 'b CCArray.t) -> 'b CCArray.t
val ( >>| ) : 'a CCArray.t -> ('a -> 'b) -> 'b CCArray.t
val ( >|= ) : 'a CCArray.t -> ('a -> 'b) -> 'b CCArray.t
val except_idx : 'a CCArray.t -> int -> 'a list
val ( -- ) : int -> int -> int CCArray.t
val ( --^ ) : int -> int -> int CCArray.t
val random : 'a CCArray.random_gen -> 'a CCArray.t CCArray.random_gen
val random_non_empty :
'a CCArray.random_gen -> 'a CCArray.t CCArray.random_gen
val random_len :
int -> 'a CCArray.random_gen -> 'a CCArray.t CCArray.random_gen
module type MONO_ARRAY =
sig
type elt
type t
val length : CCArray.MONO_ARRAY.t -> int
val get : CCArray.MONO_ARRAY.t -> int -> CCArray.MONO_ARRAY.elt
val set : CCArray.MONO_ARRAY.t -> int -> CCArray.MONO_ARRAY.elt -> unit
end
val sort_generic :
(module CCArray.MONO_ARRAY with type elt = 'elt and type t = 'arr) ->
?cmp:('elt -> 'elt -> int) -> 'arr -> unit
end