Three Beautiful Quicksorts

You're viewing a comment by bunqiejump and its responses.

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

Reply To This Comment

(why do I need your e-mail?)

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

Comment Help

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

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