quicksort.hs

quicksort :: (Ord a) => [a] -> [a]
quicksort [] = []
quicksort (x:xs) =
    let smallerOrEqual = filter (<= x) xs
        larger = filter (> x) xs
    in quicksort smallerOrEqual ++ [x] ++ quicksort larger

main = do
  print $ quicksort [4,3,2,1,0,6,9,8,7,10]
  print $ quicksort $ filter (> 5) [4,3,2,1,0,6,9,8,7,10]