Make (base.Base.Binary_searchable.Make)

Parameters

module T : Indexable

Signature

val binary_search : 
  ?pos:int ->
  ?len:int ->
  T.t ->
  compare:(T.elt -> 'key -> int) ->
  [ `First_equal_to
  | `First_greater_than_or_equal_to
  | `First_strictly_greater_than
  | `Last_equal_to
  | `Last_less_than_or_equal_to
  | `Last_strictly_less_than ] ->
  'key ->
  int option

val binary_search_segmented : 
  ?pos:int ->
  ?len:int ->
  T.t ->
  segment_of:(T.elt -> [ `Left | `Right ]) ->
  [ `First_on_right | `Last_on_left ] ->
  int option