Sorting algorithms/Quicksort: Difference between revisions
m
→{{header|Tailspin}}: Neater expression
m (→{{header|Fortran}}: added syntax highlighting) |
m (→{{header|Tailspin}}: Neater expression) |
||
Line 9,509:
def last: $(2);
def pivot: $@quicksort($first);
$(2) -> #
when
def limit: $
@quicksort($first): $@quicksort($limit);
@quicksort($limit): $pivot;
Line 9,518 ⟶ 9,519:
[ $limit + 1, $last ] !
when <?($@quicksort($
when <?($@quicksort($
otherwise
def temp: $@quicksort($
@quicksort($
@quicksort($
end partial
@: $;
|