Sorting algorithms/Quicksort: Difference between revisions

Content added Content deleted

Inline

@@ Line 52: / Line 52: @@
  begin
-    if Item'Length > 2 then
+    if Item'Length > 1 then
        Pivot_Index := Index_Type'Val((Index_Type'Pos(Item'Last) + 1 +
                                      Index_Type'Pos(Item'First)) / 2);