Select Code to Download

sub quick_sort {
    my @a = @_;
...
my @a = (4, 65, 2, -31, 0, 99, 83, 782, 1);
@a = quick_sort @a;
print "@a\n";

quick_sort(grep $_ < $p, @a), $p, quick_sort(grep $_ > $p, @a);