Stdlib.Dynarray(3)

πŸ’– Stdlib.Dynarray πŸ’–

okay bestie, this is the OCaml library page for Stdlib.Dynarray(3) and the name section is literally giving β€œno description,” so we’re just gonna vibe through the whole module together πŸ’…

πŸ“› NAME πŸ“›

  • Stdlib.Dynarray β€” no description πŸ’€

🧩 Module 🧩

Module

πŸ“š Documentation πŸ“š

Module Dynarray : (module Stdlib__Dynarray)

πŸ”’ Unsynchronized accesses πŸ”’

Concurrent accesses to dynamic arrays must be synchronized (for instance with a Mutex.t). Unsynchronized accesses to a dynamic array are a programming error that may lead to an invalid dynamic array state, on which some operations would fail with an Invalid_argument exception. No cap, this is one of those β€œplease lock it” situations 🫢

🌈 Dynamic arrays 🌈

  • type !'a t β€” a dynamic array containing values of type 'a.

A dynamic array a provides constant-time get and set operations on indices between 0 and Dynarray.length a - 1 included. Its Dynarray.length may change over time by adding or removing elements to the end of the array.

We say that an index into a dynarray a is valid if it is in 0 .. length a - 1 and invalid otherwise.

  • val create : unit -> 'a t β€” create () is a new, empty array.
  • val make : int -> 'a -> 'a t β€” make n x is a new array of length n, filled with x.

Raises Invalid_argument if n < 0 or n > Sys.max_array_length.

  • val init : int -> (int -> 'a) -> 'a t β€” init n f is a new array a of length n, such that get a i is f i. In other words, the elements of a are f 0, then f 1, then f 2 ... and f (n - 1) last, evaluated in that order.

This is similar to Array.init.

Raises Invalid_argument if n < 0 or n > Sys.max_array_length.

  • val get : 'a t -> int -> 'a β€” get a i is the i-th element of a, starting with index 0.

Raises Invalid_argument if the index is invalid.

  • val set : 'a t -> int -> 'a -> unit β€” set a i x sets the i-th element of a to be x.

i must be a valid index. set does not add new elements to the array -- see Dynarray.add_last to add an element.

Raises Invalid_argument if the index is invalid.

  • val length : 'a t -> int β€” length a is the number of elements in the array.
  • val is_empty : 'a t -> bool β€” is_empty a is true if a is empty, that is, if length a = 0.
  • val get_last : 'a t -> 'a β€” get_last a is the element of a at index length a - 1.

Raises Invalid_argument if a is empty.

  • val find_last : 'a t -> 'a option β€” find_last a is None if a is empty and Some (get_last a) otherwise.
  • val copy : 'a t -> 'a t β€” copy a is a shallow copy of a, a new array containing the same elements as a.

✨ Adding elements ✨

Note: all operations adding elements raise Invalid_argument if the length needs to grow beyond Sys.max_array_length.
  • val add_last : 'a t -> 'a -> unit β€” add_last a x adds the element x at the end of the array a.
  • val append_array : 'a t -> 'a array -> unit β€” append_array a b adds all elements of b at the end of a, in the order they appear in b.

For example:

let a = Dynarray.of_list [1;2] in
Dynarray.append_array a [|3; 4|];
assert (Dynarray.to_list a = [1; 2; 3; 4])
  • val append_list : 'a t -> 'a list -> unit β€” like Dynarray.append_array but with a list.
  • val append : 'a t -> 'a t -> unit β€” append a b is like append_array a b, but b is itself a dynamic array instead of a fixed-size array.
Warning: append a a is a programming error because it iterates on a and adds elements to it at the same time -- see the Dynarray.iteration section below. It fails with Invalid_argument. If you really want to append a copy of a to itself, you can use Dynarray.append_array a (Dynarray.to_array a) which copies a into a temporary array.
  • val append_seq : 'a t -> 'a Seq.t -> unit β€” like Dynarray.append_array but with a sequence.
Warning: append_seq a (to_seq_reentrant a) simultaneously traverses a and adds element to it; the ordering of those operations is unspecified, and may result in an infinite loop -- the new elements may in turn be produced by to_seq_reentrant a and get added again and again 😭
  • val append_iter : 'a t -> (('a -> unit) -> 'x -> unit) -> 'x -> unit β€” append_iter a iter x adds each element of x to the end of a. This is iter (add_last a) x.

For example, append_iter a List.iter [1;2;3] would add elements 1, 2, and then 3 at the end of a. append_iter a Queue.iter q adds elements from the queue q.

  • val blit : src:'a t -> src_pos:int -> dst:'a t -> dst_pos:int -> len:int -> unit β€” blit ~src ~src_pos ~dst ~dst_pos ~len copies len elements from a source dynarray src, starting at index src_pos, to a destination dynarray dst, starting at index dst_pos. It works correctly even if src and dst are the same array, and the source and destination chunks overlap.

Unlike Array.blit, Dynarray.blit can extend the destination array with new elements: it is valid to call blit even when dst_pos + len is larger than length dst. The only requirement is that dst_pos must be at most length dst (included), so that there is no gap between the current elements and the blit region.

Since 5.3

Raises Invalid_argument if src_pos and len do not designate a valid subarray of src, or if dst_pos is strictly below 0 or strictly above length dst.

πŸ—‘οΈ Removing elements πŸ—‘οΈ

  • val pop_last_opt : 'a t -> 'a option β€” pop_last_opt a removes and returns the last element of a, or None if the array is empty.
  • val pop_last : 'a t -> 'a β€” pop_last a removes and returns the last element of a.

Raises Not_found on an empty array.

  • val remove_last : 'a t -> unit β€” remove_last a removes the last element of a, if any. It does nothing if a is empty.
  • val truncate : 'a t -> int -> unit β€” truncate a n truncates a to have at most n elements.

It removes elements whose index is greater or equal to n. It does nothing if n >= length a.

truncate a n is equivalent to:

if n < 0 then invalid_argument "...";
while length a > n do
  remove_last a
done

Raises Invalid_argument if n < 0.

  • val clear : 'a t -> unit β€” clear a is truncate a 0, it removes all the elements of a.

πŸ” Iteration πŸ”

The iteration functions traverse the elements of a dynamic array. Traversals of a are computed in increasing index order: from the element of index 0 to the element of index length a - 1.

It is a programming error to change the length of an array (by adding or removing elements) during an iteration on the array. Any iteration function will fail with Invalid_argument if it detects such a length change.
  • val iter : ('a -> unit) -> 'a t -> unit β€” iter f a calls f on each element of a, from the element of index 0 to the element of index length a - 1.
  • val rev_iter : ('a -> unit) -> 'a t -> unit β€” rev_iter f a calls f on each element of a, from the element of index length a - 1 to the element of index 0.

Since 5.5

  • val iteri : (int -> 'a -> unit) -> 'a t -> unit β€” iteri f a calls f i x for each x at index i in a, from the index 0 to the index length a - 1.
  • val rev_iteri : (int -> 'a -> unit) -> 'a t -> unit β€” rev_iteri f a calls f i x for each x at index i in a, from the index length a - 1 down to the index 0.

Since 5.5

  • val map : ('a -> 'b) -> 'a t -> 'b t β€” map f a is a new array of elements of the form f x for each element x of a.

For example, if the elements of a are x0, x1, x2, then the elements of b are f x0, f x1, f x2.

  • val mapi : (int -> 'a -> 'b) -> 'a t -> 'b t β€” mapi f a is a new array of elements of the form f i x for each element x of a at index i.

For example, if the elements of a are x0, x1, x2, then the elements of b are f 0 x0, f 1 x1, f 2 x2.

  • val fold_left : ('acc -> 'a -> 'acc) -> 'acc -> 'a t -> 'acc β€” fold_left f acc a folds f over a in order, starting with accumulator acc.

For example, if the elements of a are x0, x1, then fold f acc a is:

let acc = f acc x0 in
let acc = f acc x1 in
acc
  • val fold_right : ('a -> 'acc -> 'acc) -> 'a t -> 'acc -> 'acc β€” fold_right f a acc computes f x0 (f x1 (... (f xn acc) ...)) where x0, x1, ..., xn are the elements of a.
  • val filter : ('a -> bool) -> 'a t -> 'a t β€” filter f a is a new array of all the elements of a that satisfy f. In other words, it is an array b such that, for each element x in a in order, x is added to b if f x is true.

For example, filter (fun x -> x >= 0) a is a new array of all non-negative elements of a, in order.

  • val filter_map : ('a -> 'b option) -> 'a t -> 'b t β€” filter_map f a is a new array of elements y such that f x is Some y for an element x of a. In other words, it is an array b such that, for each element x of a in order:
-if f x = Some y , then y is added to b ,

-if f x = None , then no element is added to b .

For example, filter_map int_of_string_opt inputs returns a new array of integers read from the strings in inputs, ignoring strings that cannot be converted to integers.

πŸ”Ž Dynarray scanning πŸ”Ž

  • val exists : ('a -> bool) -> 'a t -> bool β€” exists f a is true if some element of a satisfies f.

For example, if the elements of a are x0, x1, x2, then exists f a is f x0 || f x1 || f x2.

  • val for_all : ('a -> bool) -> 'a t -> bool β€” for_all f a is true if all elements of a satisfy f. This includes the case where a is empty.

For example, if the elements of a are x0, x1, x2, then for_all f a is f x0 && f x1 && f x2.

  • val exists2 : ('a -> 'b -> bool) -> 'a t -> 'b t -> bool β€” same as Dynarray.exists, but for a two-argument predicate.

Since 5.4

Raises Invalid_argument if the two arrays have different lengths.

  • val for_all2 : ('a -> 'b -> bool) -> 'a t -> 'b t -> bool β€” same as Dynarray.for_all, but for a two-argument predicate.

Since 5.4

Raises Invalid_argument if the two arrays have different lengths.

  • val mem : 'a -> 'a t -> bool β€” mem a set is true if and only if a is structurally equal to an element of set (i.e. there is an x in set such that compare a x = 0).

Since 5.3

  • val memq : 'a -> 'a t -> bool β€” same as Dynarray.mem, but uses physical equality instead of structural equality to compare array elements.

Since 5.3

  • val find_opt : ('a -> bool) -> 'a t -> 'a option β€” find_opt f a returns the first element of the array a that satisfies the predicate f, or None if there is no value that satisfies f in the array a.

Since 5.3

  • val find_index : ('a -> bool) -> 'a t -> int option β€” find_index f a returns Some i, where i is the index of the first element of the array a that satisfies f x, if there is such an element.

It returns None if there is no such element.

Since 5.3

  • val find_map : ('a -> 'b option) -> 'a t -> 'b option β€” find_map f a applies f to the elements of a in order, and returns the first result of the form Some v, or None if none exist.

Since 5.3

  • val find_mapi : (int -> 'a -> 'b option) -> 'a t -> 'b option

Okay so this is basically find_map energy, but the predicate also gets the index of the element as the first argument (counting from 0) and the element itself as the second argument. πŸ’…

✨ Since 5.3 ✨

πŸ’– Comparison functions πŸ’–

Comparison functions iterate over their arguments; it is a programming error to change their length during the iteration, see the Dynarray.iteration section above. 🫢

  • val equal : ('a -> 'a -> bool) -> 'a t -> 'a t -> bool β€” equal eq a b holds when a and b have the same length, and for all indices i we have eq (get a i) (get b i) .
  • val compare : ('a -> 'a -> int) -> 'a t -> 'a t -> int β€” compare cmp a b compares a and b according to the shortlex order, that is, shorter arrays are smaller and equal-sized arrays are compared in lexicographic order using cmp to compare elements.

✨ Since 5.3 ✨

For more details on comparison functions, see Array.sort. πŸ“š

πŸ¦‹ Conversions to other data structures πŸ¦‹

Note: the of_* functions raise Invalid_argument if the length needs to grow beyond Sys.max_array_length. 😭

The to_* functions, except those specifically marked "reentrant", iterate on their dynarray argument. In particular it is a programming error if the length of the dynarray changes during their execution, and the conversion functions raise Invalid_argument if they observe such a change. πŸ’€

  • val of_array : 'a array -> 'a t β€” of_array arr returns a dynamic array corresponding to the fixed-sized array a . Operates in O(n) time by making a copy.
  • val to_array : 'a t -> 'a array β€” to_array a returns a fixed-sized array corresponding to the dynamic array a . This always allocate a new array and copies elements into it.
  • val of_list : 'a list -> 'a t β€” of_list l is the array containing the elements of l in the same order.
  • val to_list : 'a t -> 'a list β€” to_list a is a list with the elements contained in the array a .
  • val of_seq : 'a Seq.t -> 'a t β€” of_seq seq is an array containing the same elements as seq . It traverses seq once and will terminate only if seq is finite.
  • val to_seq : 'a t -> 'a Seq.t β€” to_seq a is the sequence of elements get a 0 , get a 1 ... get a (length a - 1) .
  • val to_seq_reentrant : 'a t -> 'a Seq.t β€” to_seq_reentrant a is a reentrant variant of Dynarray.to_seq , in the sense that one may still access its elements after the length of a has changed. Demanding the i -th element of the resulting sequence (which can happen zero, one or several times) will access the i -th element of a at the time of the demand. The sequence stops if a has less than i elements at this point.
  • val to_seq_rev : 'a t -> 'a Seq.t β€” to_seq_rev a is the sequence of elements get a (l - 1) , get a (l - 2) ... get a 0 , where l is length a at the time to_seq_rev is invoked.
  • val to_seq_rev_reentrant : 'a t -> 'a Seq.t β€” to_seq_rev_reentrant a is a reentrant variant of Dynarray.to_seq_rev , in the sense that one may still access its elements after the length of a has changed. Elements that have been removed from the array by the time they are demanded in the sequence are skipped.

πŸš€ Advanced topics for performance πŸš€

🌸 Backing array, capacity 🌸

Internally, a dynamic array uses a backing array (a fixed-size array as provided by the Array module) whose length is greater or equal to the length of the dynamic array. We define the capacity of a dynamic array as the length of its backing array. πŸ’…

The capacity of a dynamic array is relevant in advanced scenarios, when reasoning about the performance of dynamic array programs:

  • -The memory usage of a dynamic array is proportional to its capacity, rather than its length. πŸ’–
  • -When there is no empty space left at the end of the backing array, adding elements requires allocating a new, larger backing array. ✨

The implementation uses a standard exponential reallocation strategy which guarantees amortized constant-time operation; in particular, the total capacity of all backing arrays allocated over the lifetime of a dynamic array is at worst proportional to the total number of elements added. 🫢

In other words, users need not care about capacity and reallocations, and they will get reasonable behavior by default. However, in some performance-sensitive scenarios the functions below can help control memory usage or guarantee an optimal number of reallocations. 😌

  • val capacity : 'a t -> int β€” capacity a is the length of a 's backing array.
  • val ensure_capacity : 'a t -> int -> unit β€” ensure_capacity a n makes sure that the capacity of a is at least n . Raises Invalid_argument if the requested capacity is outside the range 0 .. Sys.max_array_length .

An example would be to reimplement Dynarray.of_array without using Dynarray.init :

let of_array arr =
  let a = Dynarray.create () in
  Dynarray.ensure_capacity a (Array.length arr);
  Array.iter (fun v -> add_last a v) arr

Using ensure_capacity guarantees that at most one reallocation will take place, instead of possibly several. πŸ”₯

Without this ensure_capacity hint, the number of resizes would be logarithmic in the length of arr , creating a constant-factor slowdown noticeable when arr is large.

  • val ensure_extra_capacity : 'a t -> int -> unit β€” ensure_extra_capacity a n is ensure_capacity a (length a + n) , it makes sure that a has room for n extra items. Raises Invalid_argument if the total requested capacity is outside the range 0 .. Sys.max_array_length .

A use case would be to implement Dynarray.append_array :

let append_array a arr =
  ensure_extra_capacity a (Array.length arr);
  Array.iter (fun v -> add_last a v) arr
  • val fit_capacity : 'a t -> unit β€” fit_capacity a reallocates a backing array if necessary, so that the resulting capacity is exactly length a , with no additional empty space at the end. This can be useful to make sure there is no memory wasted on a long-lived array.
⚠️ Note that calling fit_capacity breaks the amortized complexity guarantees provided by the default reallocation strategy. Calling it repeatedly on an array may have quadratic complexity, both in time and in total number of words allocated. 😭

If you know that a dynamic array has reached its final length, which will remain fixed in the future, it is sufficient to call to_array and only keep the resulting fixed-size array. fit_capacity is useful when you need to keep a dynamic array for eventual future resizes.

  • val set_capacity : 'a t -> int -> unit β€” set_capacity a n reallocates a backing array if necessary, so that the resulting capacity is exactly n . In particular, all elements of index n or greater are removed.

Like Dynarray.fit_capacity , this function breaks the amortized complexity guarantees provided by the reallocation strategy. Calling it repeatedly on an array may have quadratic complexity, both in time and in total number of words allocated. πŸ’€

This is an advanced function; in particular, Dynarray.ensure_capacity should be preferred to increase the capacity, as it preserves those amortized guarantees.

Raises Invalid_argument if n < 0 .

  • val reset : 'a t -> unit β€” reset a clears a and replaces its backing array by an empty array. It is equivalent to set_capacity a 0 or clear a; fit_capacity a .

πŸ’œ No leaks: preservation of memory liveness πŸ’œ

The user-provided values reachable from a dynamic array a are exactly the elements in the indices 0 to length a - 1 . In particular, no user-provided values are "leaked" by being present in the backing array at index length a or later. πŸŽ€

  • val unsafe_to_iarray : capacity:int -> ('a t -> unit) -> 'a iarray β€” unsafe_to_iarray ~capacity f calls f on a new empty dynarray with the given capacity , then turns it into an immutable array without a copy, when possible, that is, if two conditions hold:
    • -the array elements are not floats, and
    • -after f returned, the array's capacity is equal to its length.

Note that the capacity argument is only a hint. For example, nothing prevents from calling Dynarray.fit_capacity at the end of f . 🌈

This function is unsafe because type safety may be broken by concurrent writes to the dynarray from other domains, without proper synchronization, before f returns. πŸ™ˆ

✨ Since 5.4 ✨

πŸŽ€ Code examples πŸŽ€

🧚 Min-heaps for mutable priority queues 🧚

We can use dynamic arrays to implement a mutable priority queue. A priority queue provides a function to add elements, and a function to extract the minimum element -- according to some comparison function. πŸ‘‘

(* We present our priority queues as a functor
   parametrized on the comparison function. *)
module Heap (Elem : Map.OrderedType) : sig
  type t
  val create : unit -> t
  val add : t -> Elem.t -> unit
  val pop_min : t -> Elem.t option
end = struct

  (* Our priority queues are implemented using the standard "min heap"
     data structure, a dynamic array representing a binary tree. *)
  type t = Elem.t Dynarray.t
  let create = Dynarray.create

 (* The node of index [i] has as children the nodes of index [2 * i + 1]
    and [2 * i + 2] -- if they are valid indices in the dynarray. *)
  let left_child i = 2 * i + 1
  let right_child i = 2 * i + 2
  let parent_node i = (i - 1) / 2

  (* We use indexing operators for convenient notations. *)
  let ( .!() ) = Dynarray.get
  let ( .!()<- ) = Dynarray.set

  (* Auxiliary functions to compare and swap two elements
     in the dynamic array. *)
  let order h i j =
    Elem.compare h.!(i) h.!(j)

  let swap h i j =
    let v = h.!(i) in
    h.!(i) <- h.!(j);
    h.!(j) <- v

  (* We say that a heap respects the "heap ordering" if the value of
     each node is smaller than the value of its children. The
     algorithm manipulates arrays that respect the heap algorithm,
     except for one node whose value may be too small or too large.

     The auxiliary functions [heap_up] and [heap_down] take
     such a misplaced value, and move it "up" (respectively: "down")
     the tree by permuting it with its parent value (respectively:
     a child value) until the heap ordering is restored. *)

  let rec heap_up h i =
    if i = 0 then () else
    let parent = parent_node i in
    if order h i parent < 0 then
      (swap h i parent; heap_up h parent)

  and heap_down h ~len i =
    let left, right = left_child i, right_child i in
    if left >= len then () (* no child, stop *) else
    let smallest =
      if right >= len then left (* no right child *) else
      if order h left right < 0 then left else right
    in
    if order h i smallest > 0 then
      (swap h i smallest; heap_down h ~len smallest)

  let add h s =
    let i = Dynarray.length h in
    Dynarray.add_last h s;
    heap_up h i
     let pop_min h =
       if Dynarray.is_empty h then None
       else begin
         (* Standard trick: swap the 'best' value at index 0
            with the last value of the array. *)
         let last = Dynarray.length h - 1 in
         swap h 0 last;
         (* At this point [pop_last] returns the 'best' value,
            and leaves a heap with one misplaced element at index [0]. *)
         let best = Dynarray.pop_last h in
         (* Restore the heap ordering -- does nothing if the heap is empty. *)
         heap_down h ~len:last 0;
         Some best
       end
   end

okay so bestie, the swap + pop_last + heap_down combo is doing the actual work here β€” swap the "best" element at index 0 with the last one, pop_last hands you that best value back, and then heap_down with ~len:last fixes the ordering at index 0. And if the heap was already empty, heap_down is just out here doing nothing at all. iconic behaviour honestly πŸ’…


🌸 a lil production glow-up 🌸

The production code from which this example was inspired includes logic to free the backing array when the heap becomes empty, only in the case where the capacity is above a certain threshold. This can be done by calling the following function from pop:

let shrink h =
  if Dynarray.length h = 0 && Dynarray.capacity h > 1 lsl 18 then
    Dynarray.reset h

so like, once the heap is fully empty AND the capacity has ballooned past 1 lsl 18 (262144, iykyk πŸ”₯), you just yeet that backing array with Dynarray.reset h. no cap, that's the whole trick. πŸ’–


✨ and one (1) more thing: sorting ✨

The Heap functor can be used to implement a sorting function, by adding all elements into a priority queue and then extracting them in order.

let heap_sort (type a) cmp li =
  let module Heap = Heap(struct type t = a let compare = cmp end) in
  let heap = Heap.create () in
  List.iter (Heap.add heap) li;
  List.map (fun _ -> Heap.pop_min heap |> Option.get) li

the way this is literally just "dump everything into a priority queue, then pull it all back out in order" β€” that's the entire sort, she moved, she ate, no notes 🫢 the Option.get is safe here because you pushed exactly li elements in, so pop_min is never gonna hand you a None. and yeah, if you were wondering: that's the Option.get of Stdlib.Option fame, so it'll raise Invalid_argument if pop_min ever did return None β€” which, in this specific loop, it doesn't. 😌


quick vibe check πŸ’€ β€” Option.get does not magically become safe just because it looks cute in a code sample. It's only fine here because of the invariant above. don't go sprinkling it everywhere, bestie, I'm begging πŸ™ˆ

πŸ’œ that's a wrap πŸ’œ

and that's the whole Stdlib.Dynarray(3) page, start to finish β€” you made it, bestie, I'm so proud of you πŸ₯Ήβœ¨

this lil treasure was documented by OCamldoc, dated 2026-06-22, and it's page 3 of section 3 of the manual β€” so go forth, grow some dynamic arrays, and pop those last elements with confidence. mwah πŸ’‹πŸŽ€πŸŒΈπŸ¦‹πŸ’–

πŸ“¦ where this page comes from