Friendpaste

--- Revision 323563663339
+++ Revision 376262666637
@@ -5,10 +5,8 @@
 Function ArrayShuffle(ByVal src())
 	Dim res
 	res = ArrayCopy(src)
-	Dim u
-	u = UBound(res)
 	Dim i
-	For i = u To 1 Step -1
+	For i = UBound(res) To 1 Step -1
 		Dim j
 		j = NumberRandom(0, i + 1)
 		Dim t
a	b
4	4		Function ArrayShuffle(ByVal src())
5	5		Dim res
6	6		res = ArrayCopy(src)
...
7		-	Dim u
7		-	u = UBound(res)
...
9	9		Dim i
...
10		-	For i = u To 1 Step -1
	10	+	For i = UBound(res) To 1 Step -1
...
11	11		Dim j
12	12		j = NumberRandom(0, i + 1)
13	13		Dim t
...