Cristalab

Código :

var N:Number = 14; //ATENCIÓN!! "N" DEBE SER PAR! (2,4,8,12,20,...)
var g1:Array = new Array();
var g2:Array = new Array();
//crea los grupos
for (var i = 0; i<((N-1)/2); i++) {
   g1.push([i]);
   g1[i] = i;
   //
   g2.push([i]);
   g2[i] = N-i-1;
}
//hace girar los grupo para el siguiente round
for (var j = 0; j<N-1; j++) {//j son los rounds

   //anuncia los grupos
   trace("Round "+j);
   trace(g1);
   trace(g2);

   var temp1 = g2[0];
   var temp2 = g1[(N/2)-1];
   for (var k = 0; k<N/2; k++) {
      if (k == (N/2)-1) {
         g1[1] = temp1;
         g2[(N/2)-1] = temp2;
      } else {
         g1[(N/2)-1-k] = g1[(N/2)-1-k-1];
         g2[k] = g2[k+1];
      }
   }

}