Anonymous user
Sorting algorithms/Quicksort: Difference between revisions
→concurrent implementation
imported>Rcmlz |
imported>Rcmlz |
||
Line 8,282:
<syntaxhighlight lang="raku" line>
#| Recursive, parallel, random pivot, single-pass, quicksort implementation
multi quicksort-parallel-naive(\a, \pivot = a.pick) {
▲ my %prt{Order} is default([]) = @a.classify( * cmp $pivot );
my Promise $less = start { samewith(%prt{Less}) }
my $more = samewith(%prt{More});
| |||