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

2 lines
69 B
Raku

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