9 lines
130 B
Perl
9 lines
130 B
Perl
|
use 5.20.0;
|
||
|
|
use List::AllUtils qw/ uniq sum /;
|
||
|
|
|
||
|
|
say sum map {
|
||
|
|
my @u = uniq @$_;
|
||
|
|
@u == @$_;
|
||
|
|
}
|
||
|
|
map { chomp; [ split ] } <>;
|