Data update

Task/Sorting-algorithms-Quicksort/VBScript/sorting-algorithms-quicksort.vbs

@@ -0,0 +1,35 @@
+Function quicksort(arr,s,n)
+	If n < 2 Then
+		Exit Function
+	End If
+	t = s + n - 1
+	l = s
+	r = t
+	p = arr(Int((l + r)/2))
+	Do Until l > r
+		Do While arr(l) < p
+			l = l + 1
+		Loop
+		Do While arr(r) > p
+			r = r -1
+		Loop
+		If l <= r Then
+			tmp = arr(l)
+			arr(l) = arr(r)
+			arr(r) = tmp
+			l = l + 1
+			r = r - 1
+		End If
+	Loop
+	If s < r Then
+		Call quicksort(arr,s,r-s+1)
+	End If
+	If l < t Then
+		Call quicksort(arr,l,t-l+1)
+	End If
+	quicksort = arr
+End Function
+
+myarray=Array(9,8,7,6,5,5,4,3,2,1,0,-1)
+m = quicksort(myarray,0,12)
+WScript.Echo Join(m,",")