Comparable.Extend_binable
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 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 : Base.Comparable.Polymorphic_compare with type t := M.t
include Comparator.S with type t := M.t with type comparator_witness := M.comparator_witness
val comparator : (M.t, M.comparator_witness) Comparator.comparator
module Map : Map.S_binable with type Key.t = M.t with type Key.comparator_witness = M.comparator_witness
module Set : Set.S_binable with type Elt.t = M.t with type Elt.comparator_witness = M.comparator_witness