feat(CCArray): add mapi_inplace

Author: FardaleM

src/core/CCArray.ml

@@ -44,6 +44,7 @@ let get_safe a i =
     None
 
 let map_inplace f a = Array.iteri (fun i e -> Array.unsafe_set a i (f e)) a
+let mapi_inplace f a = Array.iteri (fun i e -> Array.unsafe_set a i (f i e)) a
 let fold = Array.fold_left
 
 let foldi f acc a =

src/core/CCArray.mli

@@ -64,6 +64,10 @@ val map_inplace : ('a -> 'a) -> 'a t -> unit
 (** [map_inplace f a] replace all elements of [a] by its image by [f].
     @since 3.8 *)
 
+val mapi_inplace : (int -> 'a -> 'a) -> 'a t -> unit
+(** [mapi_inplace f a] replace all elements of [a] by its image by [f].
+    @since NEXT_RELEASE *)
+
 val fold : ('a -> 'b -> 'a) -> 'a -> 'b t -> 'a
 (** [fold f init a] computes [f (… (f (f init a.(0)) a.(1)) …) a.(n-1)],
     where [n] is the length of the array [a].

src/core/CCArrayLabels.mli

@@ -62,6 +62,10 @@ val map_inplace : f:('a -> 'a) -> 'a t -> unit
 (** [map_inplace ~f a] replace all elements of [a] by its image by [f].
     @since 3.8 *)
 
+val mapi_inplace : f:(int -> 'a -> 'a) -> 'a t -> unit
+(** [mapi_inplace ~f a] replace all elements of [a] by its image by [f].
+    @since NEXT_RELEASE *)
+
 val fold : f:('a -> 'b -> 'a) -> init:'a -> 'b t -> 'a
 (** [fold ~f ~init a] computes [f (… (f (f init a.(0)) a.(1)) …) a.(n-1)],
     where [n] is the length of the array [a].