Re^4: Grep Pattern

I stand by what I said. Even just hardcoding the 4 warranted horror. And you are mistaken about the restrictiveness of my code.

@a[ grep { $pat[ $_ % @$pat ] } 0..$#a ]
[download]

sub filter_by_pat {
   my $pat = shift;
   return @_[ grep { $pat->[ $_ % @$pat ] } 0..$#_ ];
}

filter_by_pat [0,1,1,0], ...
[download]

Comment on Re^4: Grep Pattern Select or Download Code

Replies are listed 'Best First'.
Re^5: Grep Pattern by LanX (Saint) on Dec 14, 2018 at 12:29 UTC
> And you are mistaken about the restrictiveness of my code. Not really. There are many occasion where you need to handle a pure list in Perl and your array slice requires storing it in an array. Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery FootballPerl is like chess, only without the dice}	[reply]
Re^6: Grep Pattern by ikegami (Patriarch) on Dec 14, 2018 at 17:06 UTC
Let me rephrase: You are definitely mistaken about the restrictiveness of my code. The code I provided handles a pure list.	[reply]
Re^7: Grep Pattern by LanX (Saint) on Dec 14, 2018 at 17:25 UTC
Let me rephrase: hdb's code is "definitely" easier and he didn't "mess up the implementation" Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery FootballPerl is like chess, only without the dice}	[reply]
Re^8: Grep Pattern by ikegami (Patriarch) on Dec 14, 2018 at 22:46 UTC
Re^9: Grep Pattern by LanX (Saint) on Dec 15, 2018 at 01:30 UTC
Some notes below your chosen depth have not been shown here