Rosetta Code

Sorting algorithms/Quicksort: Difference between revisions

Page Discussion

Sorting algorithms/Quicksort (view source)

Revision as of 18:35, 25 January 2014

1 byte added ,  10 years ago
Fixed mistake in the Ada implementaion
(Fixed mistake in the Ada implementaion)
Line 175:
exit when Left >= Right;
Swap(Item(Left), Item(Right));
if LeftPivot_Index <= Item'Last and Right > Item'FirstLeft then
Left Pivot_Index := Index_Type'Succ(Left)Right;
elsif Pivot_Index = Right := Index_Type'Pred(Right);then
Pivot_Index := Left;
end if;
end loop;
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/34877"