Pascal 洗牌

Procedure Shuffle(Var data:Array Of integer);

Var i: integer;
  j: integer;
  k: integer;
Begin
  randomize;
  i := high(data);

  Repeat
    j := trunc(random()*100) Mod i;
    k := data[i];
    data[i] := data[j];
    data[j] := k;
    dec(i);
  Until i <= low(data);
End;