11 lines
156 B
Text
11 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
|