module QuickSortSimple where

quickSort :: Ord a => [a]->[a]
quickSort [] = []
quickSort (a:as) = quickSort [x | x<-as, x <= a] ++ [a] ++ quickSort[x | x<-as, x>a]