use Perl

Next one: find winner of skater contest.

Beginner's events are way too easy. Let's take a look at "advanced".

http://www.microsoft.com/technet/scriptcenter/funzone/games/games08/aevent1.ms px

        # First thing first: build letters-to-digits map
        my $pos = 2;
        my %l2d;
        map { %l2d{$^a} = $pos; %l2d{$^b} = $pos; %l2d{$^c} = $pos++ }, 'a'..'p', 'r'..'y';

Hi.

In response to Pm's "Scripting games in Perl6" I've decided to implement some of them in Perl6.

Let's start with easiest "2008: Beginners Event 1"

Task is to calculate number of different pairs of cards.