10 lines
156 B
Text
10 lines
156 B
Text
uses chaos
|
|
uses timeutil
|
|
seed=GetTickCount
|
|
int i,j
|
|
int d[100] 'int array or any other type
|
|
...
|
|
for i=100 to 1 step -1
|
|
j=irnd(1,100)
|
|
swap d[i],d[j]
|
|
next
|