Re^3: Grep Pattern

> But you kinda messed up on the implementation.

Not really, you are filtering the sample input, hdb is filtering any input by a "repeating pattern".

update

  DB<10> @pat = ( 0, 1, 1, 0 );

  DB<11> x $i=0;grep { $pat[ $i++ % 4 ] } a..l;
0  'b'
1  'c'
2  'f'
3  'g'
4  'j'
5  'k'
  DB<12>
[download]

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery
FootballPerl is like chess, only without the dice}

Comment on Re^3: Grep Pattern Download Code

Replies are listed 'Best First'.
Re^4: Grep Pattern by hdb (Monsignor) on Dec 13, 2018 at 08:29 UTC
Exactly. Like in the original question. "0..12" is an unfortunate choice for the sample input as $_ is always the same as $i in this case. Your test data illustrates better what really goes on.	[reply]
Re^4: Grep Pattern by ikegami (Patriarch) on Dec 13, 2018 at 18:25 UTC
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] or `sub filter_by_pat { my $pat = shift; return @_[ grep { $pat->[ $_ % @$pat ] } 0..$#_ ]; } filter_by_pat [0,1,1,0], ...` [download]	[reply] [d/l] [select]
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
Re^8: Grep Pattern by ikegami (Patriarch) on Dec 14, 2018 at 22:46 UTC
Some notes below your chosen depth have not been shown here


There's more than one way to do things
	PerlMonks