Help for this page

Select Code to Download


  1. or download this
    sub qs { local ($x, @xs) = @_ and return qs(grep($_ < $x, @xs)), $x, q
    +s(grep($_ >= $x, @xs)) or () }