q211

gistfile1.pl

sub q211
{
    my %table = ();
    my $index = 0;
    foreach $i (A..R) {
        $table{$i} = int ($index++ / 3) + 2;
    }
    $index = 0;
    foreach $i (T..Y) {
        $table{$i} = int ($index++ / 3) + 8;
    }
    $table{S} = 7;
    $table{Z} = 9;
    return %table;
}