Sorting algorithms/Quicksort: Difference between revisions

$my @arr = shift@_;

localmy $@less = [];

localmy $@pivot_list = [];

localmy $@more = [];

if ($#{$arr} <= 0) {

return $@arr;

$pivot = $arr->[0];

foreach my $i (@{$arr}) {

push @{$less}, $i;

push @{$more}, $i;

push @{$pivot_list}, $i;

$@less = quick_sort($@less);

$@more = quick_sort($@more);

return [@{$less}, @{$pivot_list}, @{$more}];

print join(' ', @{quick_sort([4, 65, 2, -31, 0, 99, 83, 782, 1])}), "\n";</lang>