adventofcode/04/passwords.pl

9 lines
130 B
Perl
Raw Normal View History

2017-12-04 15:21:24 +00:00
use 5.20.0;
use List::AllUtils qw/ uniq sum /;
say sum map {
my @u = uniq @$_;
@u == @$_;
}
map { chomp; [ split ] } <>;