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]
	sv1<-quickSort(sv1)
	sv2<-quickSort(sv2)
	return(c(sv1,point,sv2))
}