桶排序代码 ＜- R语言

【R语言实现的桶排序代码】

tongSort<-function(v) { #桶排序
  maxn=1000  #待排序的数都小于1000
  b<-rep(0,maxn)
  for (i in 1:maxn) b[v[i]]=b[v[i]]+1
  
  for (i in 1:maxn) {
    while (b[i]) {
      cat(i," ")
      b[i]=b[i]-1
    }
  }
}



v<-c(5,7,3,36,28,3,6,7,50,28,666,28,3,28,36,28)
tongSort(v)