S (base.Base.Binary_searchable.S)

type elt

type t

val binary_search : 
  ?pos:int ->
  ?len:int ->
  t ->
  compare:(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 ->
  segment_of:(elt -> [ `Left | `Right ]) ->
  [ `First_on_right | `Last_on_left ] ->
  int option