[bcn-pm] Adam Kennedy a Barcelona demà

[Alex Muntada]

* Xavier Noria <fxn a hashref.com>:

> tenim reservada l'Aula B1 de 20:00 a 21:30.

També ens aniria bé saber quants vindreu per si cal
reservar taula en algun restaurant. De moment tinc
comptabilitzats 4.5:

my %legend = (
    '++' => 'sure',
    '--' => 'sure not',
    '+-' => 'not sure',
    '-+' => 'not sure not',
);

my %dinner;
while (<DATA>) {
    my ($what, $who) = /([+\-][+\-])\s+(\w+)/;
    push @{ $dinner{$what} }, $who;
}

my $count = @{ $dinner{'++'} };
$count += @{ $dinner{'+-'} } / 2;
$count += @{ $dinner{'-+'} } / 4;

print "$count\n";

__DATA__
++ fxn
++ adamk
++ brunorc
+- larsen
-- eperales
++ alexm

Algú més s'apunta al sopar? Sent tan pocs potser
acabarem sopant a casa d'en Bruno ;-)

-- 
Alex Muntada <alexm a alexm.org>
http://alexm.org/