RosettaCodeData/Task/Knuth-shuffle/Inform-6/knuth-shuffle.inf

[ shuffle a n i j tmp;
  for(i = n - 1: i > 0: i--)
  {
    j = random(i + 1) - 1;

    tmp = a->j;
    a->j = a->i;
    a->i = tmp;
  }
];