> p<-runif(100,0,100)
> quicksort<-function(p,left,right){ch=p[left]
+  i=left
+  j=right
+  while(i<j)
+  {
+
+ if(x < a[j])
+ j=j-1
+ else if(x > a[j])
+ {
+ a[i] = a[j]
+ a[j] = x
+ i=i+1
+ }
+ else if(x < a[i])
+ {
+ a[j] = a[i]
+ a[i] = x
+ j=j-1
+ }
+ else
+ i=i+1
+ }
+   p[i]=ch
+
+ if(i-1>left) quicksort(p,left,i-1)
+ if(right>i+1) quicksort(p,i+1,right)}
> p
  [1]  0.6721577 96.5027113 32.2703216 76.2143556 65.9149719 85.9785267
  [7] 39.2426588 35.9722600 93.5380847 61.9316160 94.0706237 36.9353253
[13] 65.9264255 43.5602790 83.9091803 16.3602602 37.4964606 28.5749599
[19] 68.4471624 36.7368858 40.1672222 50.4932683 31.3177940  6.7133734
[25] 78.1055106 98.5880675 79.5094726 44.0707092 98.2645052 59.1606970
[31] 22.6350563 33.4550252 34.0973574 63.8449915 86.9181821 25.6653097
[37] 25.8161086 77.0175179 35.5044926 75.2793056 76.5525305 67.9060440
[43] 25.5370278 42.4302203 71.5184052 18.8607711 69.1706316 92.9256871
[49]  9.3566732 37.7323798 87.5504809 27.7237670 92.0297692 33.2360562
[55] 36.3448430 33.4685644 80.2104504 12.7220180 72.2035036  6.9564658
[61] 88.8564947 12.2645529 53.3937304 83.1266639 29.6486935 37.7298405
[67] 92.5207953 97.1605147 46.1964491 56.4213979 37.2509545 50.5231358
[73] 49.4990559 14.4918527 54.9745834 80.0778060 58.5499927 97.6321240
[79] 94.4167936 12.8242112 81.2632723 30.2013297 20.6150777 31.3681859
[85] 35.3471182 47.5657865 83.3441733 73.5218429  1.7199268 74.8011996
[91] 39.1636194 33.8811798  5.1718507 42.5634972 53.6450833 63.4784424
[97] 40.7791622  1.2441975  5.4720691 77.7079651