added quick-sort.hs