adventofcode/04/passwords2.pl

14 lines
218 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 { [ map { sortify($_) } @$_ ] }
map { chomp; [ split ] } <>;
sub sortify {
join '', sort split '', shift;
}