10 lines
117 B
Text
10 lines
117 B
Text
FY(v)={
|
|
forstep(n=#v,2,-1,
|
|
my(i=random(n)+1,t=v[i]);
|
|
v[i]=v[n];
|
|
v[n]=t
|
|
);
|
|
v
|
|
};
|
|
|
|
FY(vector(52,i,i))
|