reciosonny
6/1/2017 - 10:45 AM

quicksort.hs

quicksort (p:xs) = (quicksort lesser) ++ [p] ++ (quicksort greater)
    where
        lesser = filter (< p) xs         
        greater = filter (>= p) xs
 
main = do print(quicksort [4,3,2,1])