Rosetta Code

Sorting algorithms/Comb sort: Difference between revisions

Page Discussion

Sorting algorithms/Comb sort (view source)

Revision as of 11:01, 9 November 2016

347 bytes removed ,  7 years ago
m
Remove misplaced R code
m (Add R code)
m (Remove misplaced R code)
Line 2,217:
Taehiissstt
</pre>
 
=={{header|R}}==
{{trans|D}}
 
<lang R>comb.sort<-function(a){
gap<-length(a)
swaps<-1
while(gap>1 & swaps==1){
gap=floor(gap/1.3)
if(gap<1){gap=1}
swaps=0
i=1
while(i+gap<=length(a)){
if(a[i]>a[i+gap]){
a[c(i,i+gap)] <- a[c(i+gap,i)]
swaps=1
}
i<-i+1
}
}
return(a)
}
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/137099"