快速排序排序

Question

我正在根据这篇文章Delphi : Sorted List

为我的图书馆实施quicksort

我不确定100％如何实现升序/降序的排序顺序。

我只是在if Lo<=Hi then begin和until Lo>Hi;中切换编译器吗？

我承认我不太了解。

Answer 1

您只需要在这两行中反转比较即可

    while List[Lo] < Mid do Inc(Lo) ;
    while List[Hi] > Mid do Dec(Hi) ;

所以做到这一点

    while List[Lo] > Mid do Inc(Lo) ;
    while List[Hi] < Mid do Dec(Hi) ;