simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request #33 from struktured/master

Browse source 
infix map operators for CCArray
This commit is contained in:
Simon Cruanes 2015-01-01 23:49:59 +01:00
commit 5e9c071947
2 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/core/CCArray.ml
View file

@ -392,6 +392,10 @@ let lookup ?(cmp=Pervasives.compare) k a =
let (>>=) a f = flat_map f a let (>>=) a f = flat_map f a
let (>>|) a f = map f a
let (>|=) a f = map f a
let for_all p a = _for_all p a 0 (Array.length a) let for_all p a = _for_all p a 0 (Array.length a)
let exists p a = _exists p a 0 (Array.length a) let exists p a = _exists p a 0 (Array.length a)

8
src/core/CCArray.mli
View file

@ -155,6 +155,14 @@ val flat_map : ('a -> 'b t) -> 'a t -> 'b array
val (>>=) : 'a t -> ('a -> 'b t) -> 'b t val (>>=) : 'a t -> ('a -> 'b t) -> 'b t
(** Infix version of {!flat_map} *) (** Infix version of {!flat_map} *)
val (>>|) : 'a t -> ('a -> 'b) -> 'b t
(** Infix version of {!map}
@since NEXT_RELEASE *)
val (>|=) : 'a t -> ('a -> 'b) -> 'b t
(** Infix version of {!map}
@since NEXT_RELEASE *)
val except_idx : 'a t -> int -> 'a list val except_idx : 'a t -> int -> 'a list
(** Remove given index, obtaining the list of the other elements *) (** Remove given index, obtaining the list of the other elements *)