This commit is contained in:
Yanick Champoux 2017-12-04 10:46:31 -05:00
parent 8adf1fa6e3
commit 67ba17edba
2 changed files with 18 additions and 0 deletions

10
2015/05/nice.pl Normal file
View File

@ -0,0 +1,10 @@
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;
}

8
2015/05/nice2.pl Normal file
View File

@ -0,0 +1,8 @@
use 5.20.0;
use List::AllUtils qw/ sum /;
say sum map { nice() }<>;
sub nice {
return !!( /(..).*?\1/ and /(.).\1/ );
}