Sha256: 47a1234625d4ed997511eb7eff64d992e10c6204fe9457be3ed3bfdaca7ea061
Contents?: true
Size: 379 Bytes
Versions: 68
Compression:
Stored size: 379 Bytes
Contents
open Base
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
68 entries across 68 versions & 1 rubygems