Friendpaste

--- Revision 653663393632
+++ Revision 323563663339
@@ -5,17 +5,27 @@
 Function ArrayShuffle(ByVal src())
 	Dim res
 	res = ArrayCopy(src)
-	Dim t
-	Dim j
 	Dim u
 	u = UBound(res)
+	Dim i
 	For i = u To 1 Step -1
+		Dim j
 		j = NumberRandom(0, i + 1)
+		Dim t
 		t = res(j)
 		res(j) = res(i)
 		res(i) = t
 	Next
 	ArrayShuffle = res
+End Function
+
+Function ArrayCopy(ByVal src())
+	Dim res(UBound(src))
+	Dim i
+	For i = 0 To UBound(res)
+		res(i) = src(i)
+	Next
+	ArrayCopy = res
 End Function
 
 Function NumberRandom(ByVal min, ByVal max)
@@ -25,11 +35,3 @@
 	res = Int(Rnd() * len) + min
 	NumberRandom = res
 End Function
-
-Function ArrayCopy(ByVal src())
-	Dim res(UBound(src))
-	For i = 0 To UBound(res)
-		res(i) = src(i)
-	Next
-	ArrayCopy = res
-End Function
a	b
4	4		Function ArrayShuffle(ByVal src())
5	5		Dim res
6	6		res = ArrayCopy(src)
...
7		-	Dim t
7		-	Dim j
...
9	9		Dim u
10	10		u = UBound(res)
...
	11	+	Dim i
...
11	11		For i = u To 1 Step -1
...
	12	+	Dim j
...
12	12		j = NumberRandom(0, i + 1)
...
	13	+	Dim t
...
13	13		t = res(j)
14	14		res(j) = res(i)
15	15		res(i) = t
16	16		Next
17	17		ArrayShuffle = res
...
	18	+	End Function
	18	+
	18	+	Function ArrayCopy(ByVal src())
	18	+	Dim res(UBound(src))
	18	+	Dim i
	18	+	For i = 0 To UBound(res)
	18	+	res(i) = src(i)
	18	+	Next
	18	+	ArrayCopy = res
...
18	18		End Function
19	19
20	20		Function NumberRandom(ByVal min, ByVal max)
...
24	24		res = Int(Rnd() * len) + min
25	25		NumberRandom = res
26	26		End Function
...
27		-
27		-	Function ArrayCopy(ByVal src())
27		-	Dim res(UBound(src))
27		-	For i = 0 To UBound(res)
27		-	res(i) = src(i)
27		-	Next
27		-	ArrayCopy = res
27		-	End Function
...