Round-robin tournament schedule: Difference between revisions

my @teams$n = 1 .. 12;

formy @teams = (1 .. 11)$n;

@teams[0,11$n-1,1..10$n-2] = @teams;

printf 'Round %2d:' . '%4d vs %-2d'x6x($n/2) . "\n", $_, @teams[ map { $_,11 $n-1-$_} 0..5($n/2)-1 ];