Belt.Array.sliceToEnd

Author: MoOx

jscomp/others/belt_Array.ml

@@ -195,6 +195,15 @@ let slice a ~offset ~len =
       done ;
       result
 
+let sliceToEnd a offset =
+  let lena = length a in
+  let ofs = if offset < 0 then max (lena + offset) 0 else offset in
+  let len = lena - ofs in
+  let result = makeUninitializedUnsafe len in
+  for i = 0 to len - 1 do
+    setUnsafe result i (getUnsafe a (ofs + i))
+  done;
+  result
 
 let fill a ~offset ~len v =
   if len > 0 then 

jscomp/others/belt_Array.mli

@@ -257,6 +257,20 @@ val slice: 'a array -> offset:int -> len:int -> 'a array
     ]}
 *)
 
+val sliceToEnd: 'a array -> int -> 'a array
+(** [sliceToEnd xs offset] creates a new array with the elements of [xs] starting at [offset]
+    
+    [offset] can be negative;and is evaluated as [length xs - offset]
+    [sliceToEnd xs -1] means get the last element as a singleton array
+
+    [sliceToEnd xs 0] will return a copy of the array
+    
+    @example {[
+      sliceToEnd [|10;11;12;13;14;15;16|] 2 = [|12;13;14;15;16|];;
+      sliceToEnd [|10;11;12;13;14;15;16|] (-4) = [|13;14;15;16|];;
+    ]}
+*)
+
 
 external copy : 'a array -> (_ [@bs.as 0]) -> 'a array = "slice" [@@bs.send]
 (** [copy a]