23 lines
411 B
Perl
23 lines
411 B
Perl
|
use 5.20.0;
|
||
|
|
use List::AllUtils qw/ pairmap reduce pairs /;
|
||
|
|
|
||
|
|
my %target = (
|
||
|
|
children=> 3,
|
||
|
|
cats=> 7,
|
||
|
|
samoyeds=> 2,
|
||
|
|
pomeranians=> 3,
|
||
|
|
akitas=> 0,
|
||
|
|
vizslas=> 0,
|
||
|
|
goldfish=> 5,
|
||
|
|
trees=> 3,
|
||
|
|
cars=> 2,
|
||
|
|
perfumes=> 1,
|
||
|
|
);
|
||
|
|
|
||
|
|
while(<>) {
|
||
|
|
my %attr = eval( ( split ':', $_, 2 )[1] =~ s/:/=>/gr );
|
||
|
|
die $_ if reduce {
|
||
|
|
$a and $target{$b->[0]} == $b->[1]
|
||
|
|
} 1, pairs %attr;
|
||
|
|
}
|