adventofcode/2017/04/passwords2.pl
2017-12-28 12:14:51 -05:00

14 lines
218 B
Perl

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;
}