japhb

multi quicksort([$head, *@front, $mid, *@back, $tail]) {
    my ($pivot, @others) := median-of-three($head, $mid, $tail);
    my @rest := |@others, |@front, |@back;

    quicksort(@rest.grep(* <  $pivot)),
    $pivot,
    quicksort(@rest.grep(* >= $pivot))
}
multi quicksort([$a, $b]) { $a < $b ?? $a, $b !! $b, $a }
multi quicksort(@a [$a?]) { @a }