adventofcode/2015/05/nice.pl
Yanick Champoux 67ba17edba day5
2017-12-04 10:46:31 -05:00

11 lines
168 B
Perl

use 5.20.0;
use List::AllUtils qw/ sum /;
say sum map { nice() }<>;
sub nice {
return 0 if /ab|cd|pq|xy/ or not /(.)\1/;
my @x = /([aeiou])/g;
@x >= 3;
}