include Base.Comparable.S with type t := M.t and type comparator_witness := M.comparator_witness
val ascending : M.t -> M.t -> int
ascending
is identical tocompare
.descending x y = ascending y x
. These are intended to be mnemonic when used likeList.sort ~compare:ascending
andList.sort ~cmp:descending
, since they cause the list to be sorted in ascending or descending order, respectively.
val descending : M.t -> M.t -> int
val between : M.t -> low:M.t -> high:M.t -> bool
between t ~low ~high
meanslow <= t <= high
val clamp_exn : M.t -> min:M.t -> max:M.t -> M.t
clamp_exn t ~min ~max
returnst'
, the closest value tot
such thatbetween t' ~low:min ~high:max
is true.Raises if
not (min <= max)
.
val clamp : M.t -> min:M.t -> max:M.t -> M.t Base.Or_error.t
include Base.Comparator.S with type comparator_witness := M.comparator_witness and type t := M.t
val comparator : (M.t, M.comparator_witness) Base.Comparator.comparator
val validate_lbound : min:M.t Base.Maybe_bound.t -> M.t Base.Validate.check
val validate_ubound : max:M.t Base.Maybe_bound.t -> M.t Base.Validate.check
val validate_bound : min:M.t Base.Maybe_bound.t -> max:M.t Base.Maybe_bound.t -> M.t Base.Validate.check
module Replace_polymorphic_compare : sig ... end
module Map : Map.S with type Key.t = M.t with type Key.comparator_witness = M.comparator_witness
module Set : Set.S with type Elt.t = M.t with type Elt.comparator_witness = M.comparator_witness