Comparable.Extend
module M : Base.Comparable.S
module X : sig ... end
include Base.Comparable.S
with type t := M.t
with type comparator_witness := M.comparator_witness
include Base.Comparisons.S with type t := M.t
compare t1 t2
returns 0 if t1
is equal to t2
, a negative integer if t1
is less than t2
, and a positive integer if t1
is greater than t2
.
ascending
is identical to compare
. descending x y = ascending y x
. These are intended to be mnemonic when used like List.sort ~compare:ascending
and List.sort ~cmp:descending
, since they cause the list to be sorted in ascending or descending order, respectively.
clamp_exn t ~min ~max
returns t'
, the closest value to t
such that between 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 t := M.t
with type comparator_witness := M.comparator_witness
val comparator : (M.t, M.comparator_witness) Base.Comparator.comparator
val validate_lbound : min:M.t Maybe_bound.t -> M.t Validate.check
val validate_ubound : max:M.t Maybe_bound.t -> M.t Validate.check
val validate_bound :
min:M.t Maybe_bound.t ->
max:M.t Maybe_bound.t ->
M.t Validate.check
module Replace_polymorphic_compare :
Base.Comparable.Comparisons with type t := M.t
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