Added a quick sort in Haskell