Select Code to Download

sub quicksort {
    return @_ unless @_ > 1;
...
        quicksort( grep $_ >= $pivot, @_ ),
    );
}

sub quicksort_t {
    return @_ unless @_ > 1;
...
    my $t2 = asyncl sub{ quicksort( grep $_ >= $pivot, @_ ) }, @_;
    return ( $t1->join, $pivot, $t2->join );
}

sub _quicksort_t {
    return @_ unless @_ > 1;
...
    my $t2 = asyncl sub{ _quicksort_t( grep $_ >= $pivot, @_ ) }, @_;
    return ( $t1->join, $pivot, $t2->join );
}