QuickSort 排序顺序

Question

我正在尝试基于此 post Delphi : Sorted List

为我的图书馆实施快速排序

我不是 100% 确定如何在其中实施排序顺序 ascending/descending。

我是否只是在 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) ;