added quick sort in Haskell