added haskell binary search

I want to play.