type 'a t
=
|
Same of ('a * 'a) array
Old of 'a array
New of 'a array
Replace of 'a array * 'a array
Unified of 'a array
include sig ... end
val t_of_sexp : (Sexplib.Sexp.t ‑> 'a) ‑> Sexplib.Sexp.t ‑> 'a t
val sexp_of_t : ('a ‑> Sexplib.Sexp.t) ‑> 'a t ‑> Sexplib.Sexp.t
val all_same : 'a t list ‑> bool
all_same ranges returns true if all ranges are Same
all_same ranges
ranges
val old_only : 'a t list ‑> 'a t list
old_only ranges drops all New ranges and converts all Replace ranges to Old ranges.
old_only ranges
val new_only : 'a t list ‑> 'a t list
new_only ranges drops all Old ranges and converts all Replace ranges to New ranges.
new_only ranges
val mine_size : 'a t ‑> int
Counts number of elements.
val other_size : 'a t ‑> int