35 lines
508 B
Perl
35 lines
508 B
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
|
|
chomp (my @data = <STDIN>);
|
|
|
|
my ($ck2, $ck3);
|
|
foreach my $w (@data) {
|
|
my ($r2, $r3) = checksum($w);
|
|
#print "$r2, $r3\n";
|
|
$ck2 += $r2;
|
|
$ck3 += $r3;
|
|
}
|
|
print $ck2 * $ck3 . "\n";
|
|
|
|
|
|
sub checksum {
|
|
my $word = shift;
|
|
|
|
my %seen;
|
|
foreach my $letter (split //, $word) {
|
|
$seen{$letter}++
|
|
}
|
|
|
|
my $twos = 0;
|
|
my $threes = 0;
|
|
foreach my $k (keys %seen) {
|
|
# print "$k $seen{$k}\n";
|
|
$twos=1 if ($seen{$k} == 2);
|
|
$threes=1 if ($seen{$k} == 3);
|
|
}
|
|
|
|
return ($twos, $threes);
|
|
|
|
}
|