R语言快速排序的代码

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

qsort <- function(v) {
  if ( length(v) > 1 )
  {
    pivot <- (min(v) + max(v))/2.0                           
    c(qsort(v[v < pivot]), v[v == pivot], qsort(v[v > pivot]))
  } else v
}

N <- 100
vs <- runif(N)
system.time(u <- qsort(vs))
print(u)

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：R语言 Pivot else ELS LSE

比R的sort慢多了

qoiqpwqr 发表于 2013-10-16 00:05
比R的sort慢多了

是啊，R自带的计算要快得多。
基于算法考虑的话，代码中不应该使用min和max函数吧。

1. Qsort <- function(x){
   
2. if (length(x) < 2) return(x)
   
3. return(c(Qsort(x[x<x[1]]), x[x==x[1]], Qsort(x[x>x[1]])))
   
4. }

复制代码