#!/usr/bin/pugs
use v6;
multi sub quicksort ( ) { () }
multi sub quicksort ( *$x, *@xs ) {
my @pre := @xs.grep:{ $_ < $x };
my @post := @xs.grep:{ $_ >= $x };
return(@pre.quicksort, $x, @post.quicksort);
}
(1, 5, 2, 4, 3).quicksort.say;