binary_search # haskell