balance-sched.pl

#!/usr/bin/perl -w

use strict;

my %sched;

# Not balanced...
%sched = (
	     0  => [ "", "", "", "", "", "" ],
	     1  => [ "3-1", "6-2", "5-4", "", "", "1" ],
	     2  => [ "1-6", "4-3", "2-5", "", "", "1" ],
	     3  => [ "2-1", "6-4", "5-3", "", "", "4" ],
	     4  => [ "3-2", "6-5", "4-1", "", "", "4" ],
	     5  => [ "4-2", "3-6", "1-5", "", "", "5" ],
	     
	     6  => [ "1-3", "2-6", "4-5", "", "", "5" ],
	     7  => [ "6-1", "3-4", "5-2", "", "", "6" ],
	     8  => [ "1-2", "4-6", "3-5", "", "", "6" ],
	     9  => [ "2-3", "5-6", "1-4", "", "", "2" ],
	     10  => [ "2-4", "6-3", "5-1", "", "", "2" ],
	    );


# My by hand attempt...
%sched = (
	     0  => [ "3-2", "4-6", "1-5", "", "", "3" ],
	     1  => [ "2-1", "3-6", "4-5", "", "", "1" ],
	     2  => [ "3-4", "2-5", "6-1", "", "", "3" ],
	     3  => [ "6-4", "1-5", "2-3", "", "", "4" ],
	     4  => [ "4-1", "6-2", "5-3", "", "", "4" ],
	     5  => [ "5-6", "1-3", "4-2", "", "", "5" ],
	     
	     6  => [ "5-4", "1-2", "6-3", "", "", "5" ],
	     7  => [ "5-2", "4-3", "1-6", "", "", "6" ],
	     8  => [ "5-1", "6-4", "3-2", "", "", "6" ],
	     9  => [ "2-6", "3-5", "1-4", "", "", "2" ],
	     10  => [ "3-1", "2-4", "6-5", "", "", "2" ],
	    );


my %sum;
foreach my $w (sort { $a <=> $b} keys %sched) {
  print "Week:  $w\t";
  my @m = @{$sched{$w}};
  my $c=1;
  foreach (@m) {
    if (m/\d+\-\d+/) {
      print "$_\t";
      my ($h,$a) = split("-",$_);
      $sum{$h}{$c}++;
      $sum{$a}{$c}++;
      $c++;
    }
  }
  print "\n";
}

print "--------------\n";
foreach my $t (sort keys %sum) {
  print "Team: $t\t ";
  foreach my $p (sort keys %{$sum{$t}}) {
    print "$p = $sum{$t}{$p}\t";
  }
  print "\n";
}