3 ms·
Perl has `length`, not `len` :) Also I can't resist a bit of TIMTOWTDI: my @found = grep { local $_ = lc; length == 10 &&
by darrenf 3y ago
Perl has `length`, not `len` :) Also I can't resist a bit of TIMTOWTDI:
my @found = grep {
local $_ = lc;
length == 10 &&
substr($_,8,1) eq "k" &&
join("",sort [/([abc])/g]->@*) eq "abc"
} @words;