add CCArray.Sub.to_list

src/core/CCArray.ml

@@ -709,6 +709,9 @@ module Sub = struct
       else _fold (f acc a.arr.(i)) (i+1) j
     in _fold acc a.i a.j
 
+  let to_list a =
+    fold (fun l x -> x::l) [] a |> List.rev
+
   let foldi f acc a = _foldi f acc a.arr a.i a.j
 
   let fold_while f acc a =

src/core/CCArray.mli

@@ -247,6 +247,10 @@ module Sub : sig
   (** Convert into a triple [(arr, i, len)] where [len] is the length of
       the subarray of [arr] starting at offset [i] *)
 
+  val to_list : 'a t -> 'a list
+  (** Convert directly to a list
+      @since NEXT_RELEASE *)
+
   val full : 'a array -> 'a t
   (** Slice that covers the full array *)