quicksort.hs

quicksort lst = case lst of
    pivot:rest -> (quicksort less) ++ [pivot] ++ (quicksort grtr) where
        less = filter (<= pivot) rest
        grtr = filter (> pivot)  rest
    empty -> empty