Sha256: 9d2fe949d90cb7cf2cbc4fe72144926bc255ab72893a6cc522e2a371502ddc3f

Contents?: true

Size: 379 Bytes

Versions: 151

Compression:

Stored size: 379 Bytes

Contents

open Core

let find xs value = 
  let rec go lo hi = 
    if lo > hi then None
    else begin 
      let mid = lo + (hi - lo) / 2 in
      let mid_val = xs.(mid) in
      if mid_val < value
      then go (mid + 1) hi
      else if mid_val > value
      then go lo (mid - 1)
      else Some mid
    end
  in
  if Array.is_empty xs
  then None
  else go 0 (Array.length xs - 1) 
  

Version data entries

151 entries across 151 versions & 1 rubygems

Version Path
trackler-2.2.1.10 tracks/ocaml/exercises/binary-search/example.ml
trackler-2.2.1.9 tracks/ocaml/exercises/binary-search/example.ml
trackler-2.2.1.8 tracks/ocaml/exercises/binary-search/example.ml
trackler-2.2.1.7 tracks/ocaml/exercises/binary-search/example.ml
trackler-2.2.1.6 tracks/ocaml/exercises/binary-search/example.ml
trackler-2.2.1.5 tracks/ocaml/exercises/binary-search/example.ml
trackler-2.2.1.4 tracks/ocaml/exercises/binary-search/example.ml
trackler-2.2.1.3 tracks/ocaml/exercises/binary-search/example.ml
trackler-2.2.1.2 tracks/ocaml/exercises/binary-search/example.ml
trackler-2.2.1.1 tracks/ocaml/exercises/binary-search/example.ml
trackler-2.2.1.0 tracks/ocaml/exercises/binary-search/example.ml
trackler-2.2.0.6 tracks/ocaml/exercises/binary-search/example.ml
trackler-2.2.0.5 tracks/ocaml/exercises/binary-search/example.ml
trackler-2.2.0.4 tracks/ocaml/exercises/binary-search/example.ml
trackler-2.2.0.3 tracks/ocaml/exercises/binary-search/example.ml
trackler-2.2.0.2 tracks/ocaml/exercises/binary-search/example.ml
trackler-2.2.0.1 tracks/ocaml/exercises/binary-search/example.ml
trackler-2.2.0.0 tracks/ocaml/exercises/binary-search/example.ml
trackler-2.1.0.55 tracks/ocaml/exercises/binary-search/example.ml
trackler-2.1.0.54 tracks/ocaml/exercises/binary-search/example.ml