28 lines
684 B
Perl
28 lines
684 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 );
|
||
|
|
say $_ if reduce {
|
||
|
|
$a and
|
||
|
|
$b->[0] eq 'cats' ? $target{$b->[0]} < $b->[1]
|
||
|
|
: $b->[0] eq 'trees' ? $target{$b->[0]} < $b->[1]
|
||
|
|
: $b->[0] eq 'goldfish' ? $target{$b->[0]} > $b->[1]
|
||
|
|
: $b->[0] eq 'pomeranians' ? $target{$b->[0]} > $b->[1]
|
||
|
|
: $target{$b->[0]} == $b->[1]
|
||
|
|
} 1, pairs %attr;
|
||
|
|
}
|