R: Quick Sort

QuickSort.R

qsort <- function(v) {
  if ( length(v) > 1 ) 
  {
    pivot <- median(v) # median value as pivot value
    c(qsort(v[v < pivot]), v[v == pivot], qsort(v[v > pivot])) 
  } else v
}