Advertisement
Guest User

Untitled

a guest
Mar 15th, 2017
83
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
F# 0.60 KB | None | 0 0
  1. module BinarySearch =
  2.     let find value array =
  3.         let rec search value (array : int array) min max =
  4.             match (max - min) with
  5.             | length when length < 0 -> None
  6.             | length -> let mid = length / 2
  7.                         if value < array.[min+mid] then
  8.                             search value array min (min+mid-1)
  9.                         else if value > array.[min+mid] then
  10.                             search value array (min+mid+1) max
  11.                         else
  12.                             Some(min+mid)
  13.         search value array 0 (Array.length array - 1)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement