all tasks

Task/Sorting-algorithms-Quicksort/Perl-6/sorting-algorithms-quicksort.pl6

@@ -0,0 +1,12 @@
+# 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.
+     (quicksort(@before), $pivot, quicksort(@after))
+ }