R: Quick Sort