Data update

Task/Sorting-algorithms-Quicksort/Raku/sorting-algorithms-quicksort-1.raku

@@ -0,0 +1,7 @@
+#| Recursive, single-thread, single-pass, quicksort implementation
+multi quicksort(@unsorted where @unsorted.elems < 2) { @unsorted }
+multi quicksort(@unsorted) {
+	my $pivot = @unsorted.pick;
+	my %class{Order} is default([]) = @unsorted.classify: * cmp $pivot;
+	|samewith(%class{Less}), |%class{Same}, |samewith(%class{More})
+}

Task/Sorting-algorithms-Quicksort/Raku/sorting-algorithms-quicksort-2.raku

@@ -0,0 +1,9 @@
+#| 7-Line, recursive, parallel, single-pass, quicksort implementation
+multi seven-line-quicksort-parallel(@unsorted where @unsorted.elems < 2) { @unsorted }
+multi seven-line-quicksort-parallel(@unsorted) {
+	my $pivot = @unsorted.pick;
+	my %partitions{Order} is default([]) = @unsorted.classify( * cmp $pivot );
+	my Promise $less = start { samewith(%partitions{Less}) }
+	my $more = samewith(%partitions{More});
+	await $less andthen |$less.result, |%partitions{Same}, |$more;
+}

Task/Sorting-algorithms-Quicksort/Raku/sorting-algorithms-quicksort-3.raku

@@ -0,0 +1,31 @@
+constant $BATCH-SIZE = 2**10;
+my atomicint $worker = $*KERNEL.cpu-cores;
+#| Recursive, parallel, tuned, single-pass, quicksort implementation
+proto quicksort-parallel(| --> Positional) {*}
+multi quicksort-parallel(@unsorted where @unsorted.elems < 2) { @unsorted }
+multi quicksort-parallel(@unsorted) {
+	# separate unsorted input into Order Less, Same and More compared to a random $pivot
+	my $pivot = @unsorted.pick;
+	my %partitions{Order} is default([]) = @unsorted.classify( * cmp $pivot );
+
+	# atomically decide if we sort the Less partition on a new thread
+	my $less = ⚛$worker > 0 &&
+			    %partitions{Less}.elems > $BATCH-SIZE
+			        ?? (
+			              $worker⚛--;
+			              start {
+				                   LEAVE $worker⚛++;
+				                   samewith(%partitions{Less})
+			              }
+			            )
+			        !! samewith(%partitions{Less});
+
+	# meanwhile use current thread for sorting the More partition
+	my $more = samewith(%partitions{More});
+
+	# if we went parallel, we need to await the result
+	await $less andthen $less = $less.result if $less ~~ Promise;
+
+	# concat all sorted partitions into a list and return
+	|$less, |%partitions{Same}, |$more;
+}

Task/Sorting-algorithms-Quicksort/Raku/sorting-algorithms-quicksort-4.raku

@@ -0,0 +1,18 @@
+use Test;
+my @testcases =
+		() => (),
+		<a>.List => <a>.List,
+		<a a> => <a a>,
+		<a b> => <a b>,
+		<b a> => <a b>,
+		<h b a c d f e g> => <a b c d e f g h>,
+		(2, 3, 1, 4, 5) => (1, 2, 3, 4, 5),
+		<a 🎮 3 z 4 🐧> => <a 🎮 3 z 4 🐧>.sort
+;
+my @implementations = &quicksort, &seven-line-quicksort-parallel, &quicksort-parallel;
+plan @testcases.elems * @implementations.elems;
+for @implementations ->  &fun {
+	say &fun.name;
+	is-deeply &fun(.key), .value, .key ~ "  =>  " ~ .value for @testcases;
+}
+done-testing;

Task/Sorting-algorithms-Quicksort/Raku/sorting-algorithms-quicksort-5.raku

@@ -0,0 +1,9 @@
+my $elem-length = 8;
+my @large of Str = ('a'..'z').roll($elem-length).join xx 10 * $worker * $BATCH-SIZE;
+
+say "Benchmarking by sorting {@large.elems} strings of size $elem-length - using batches of $BATCH-SIZE strings and $worker workers.";
+my @benchmark = gather for @implementations ->  &fun {
+	&fun(@large);
+	take (&fun.name => now - ENTER now);
+}
+say @benchmark;

Task/Sorting-algorithms-Quicksort/Raku/sorting-algorithms-quicksort.raku

@@ -1,12 +0,0 @@
-# Empty list sorts to the empty list
- multi quicksort([]) { () }
-
- # Otherwise, extract first item as pivot...
- multi quicksort([$pivot, *@rest]) {
-     # Partition.
-     my $before := @rest.grep(* before $pivot);
-     my $after  := @rest.grep(* !before $pivot);
-
-     # Sort the partitions.
-     flat quicksort($before), $pivot, quicksort($after)
- }