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

Revert "add Array.append" (already in stdlib Array)

Browse source 
This reverts commit cdb4ba5dbc.
This commit is contained in:
Simon Cruanes 2016-12-12 14:18:05 +01:00
parent cdb4ba5dbc
commit ef07decbac
2 changed files with 0 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
src/core/CCArray.ml
View file

@ -490,25 +490,6 @@ let filter_map f a =
let filter p a = let filter p a =
filter_map (fun x -> if p x then Some x else None) a filter_map (fun x -> if p x then Some x else None) a
let append a1 a2 =
let n1 = Array.length a1 in
let n2 = Array.length a2 in
if n1=0 then a2
else if n2=0 then a1
else (
let res = Array.make (n1+n2) a1.(0) in
Array.blit a1 0 res 0 n1;
Array.blit a2 0 res n1 n2;
res
)
(*$= & ~printer:Q.Print.(array int)
[| 1;2;3;4 |] (append [|1;2|] [| 3;4 |])
[| 1;2;3;4 |] (append [||] [| 1;2; 3;4 |])
[| 1;2;3;4 |] (append [| 1;2; 3;4 |] [||])
[||] (append [||] [||])
*)
(* append [rev a] in front of [acc] *) (* append [rev a] in front of [acc] *)
let rec __rev_append_list a acc i = let rec __rev_append_list a acc i =
if i = Array.length a if i = Array.length a

4
src/core/CCArray.mli
View file

@ -187,10 +187,6 @@ val rev : 'a t -> 'a t
(** Copy + reverse in place (** Copy + reverse in place
@since 0.20 *) @since 0.20 *)
val append : 'a t -> 'a t -> 'a t
(** Append 2 arrays
@since NEXT_RELEASE *)
val filter : ('a -> bool) -> 'a t -> 'a t val filter : ('a -> bool) -> 'a t -> 'a t
(** Filter elements out of the array. Only the elements satisfying (** Filter elements out of the array. Only the elements satisfying
the given predicate will be kept. *) the given predicate will be kept. *)