Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- module BinarySearch =
- let find value array =
- let rec search value (array : int array) min max =
- match (max - min) with
- | length when length < 0 -> None
- | length -> let mid = length / 2
- if value < array.[min+mid] then
- search value array min (min+mid-1)
- else if value > array.[min+mid] then
- search value array (min+mid+1) max
- else
- Some(min+mid)
- search value array 0 (Array.length array - 1)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement