You're replying to a comment by bunqiejump.

bunqiejump Permalink
August 20, 2010, 14:23

perl

sub quicksort{
  my (@l,@m,@r)=();
  map {$_<$_[0]?$l[++$#l]=$_:$_==$_[0]?$m[++$#m]=$_:$r[++$#r]=$_} @_;
  return ($#l>=1?quicksort(@l):@l,@m,$#r>=1?quicksort(@r):@r);
}

Reply To This Comment

(why do I need your e-mail?)

(Your twitter name, if you have one. (I'm @pkrumins, btw.))

Type the first letter of your name: (just to make sure you're a human)

Please preview the comment before submitting to make sure it's OK.