Help for this page

Select Code to Download


  1. or download this
    sub qs {
      return unless @_;
      my $x = shift;
      return qs(grep($_ < $x, @_)), $x, qs(grep($_ >= $x, @_));
    }