Anonymous user
Sorting algorithms/Quicksort: Difference between revisions
Ada - It fails with two elements arrays
(Ada - It fails with two elements arrays) |
|||
Line 52:
begin
if Item'Length >
Pivot_Index := Index_Type'Val((Index_Type'Pos(Item'Last) + 1 +
Index_Type'Pos(Item'First)) / 2);
|