R语言の快速排序

#函数：quickSort()
#功能：快速排序
#思路：对向量(5,4,12,13,3,8)排序。首先将所有元素跟第一个元素5进行比较，从而形成两个子向量：一个由小于5的元素组成(4,3)，一个由大于5元素组成(12,13,8)。然后在子向量上递归调用quickSort()，返回(3,4),(8,12,13)，最后将两个子向量和5一起组合得到向量(3,4,5,8,12,13)

quickSort<-function(x)
{
if(length(x)<=1) return(x)
point<-x[1]
t<-x[-1]
sv1<-t[t<point]
sv2<-t[t>=point]
sv1<-quickSort(sv1)
sv2<-quickSort(sv2)
return(c(sv1,point,sv2))
}