RosettaCodeData/Task/Function-definition/Perl-6/function-definition-9.pl6

2 lines
67 B
Raku

@list.grep( -> $obj { $obj.substr(0,1).lc.match(/<[0..9 a..f]>/) )