Quicksort 1 - Partition

  • + 0 comments

    Perl:

    sub quickSort {
        my $arr = shift;
        return sort {$a <=> $b} @$arr; 
    }