Anonymous user
Sorting algorithms/Quicksort: Difference between revisions
→{{header|Perl}}: Remove bug with code.
m (→{{header|Perl}}: Add example.) |
(→{{header|Perl}}: Remove bug with code.) |
||
Line 271:
sub quick_sort {
$arr = shift;
local $less = [];
local $pivot_list = [];
local $more = [];
if ($#{$arr} <= 0) {
return $arr;
| |||