http://qs321.pair.com?node_id=1227210


in reply to Re^3: Grep Pattern
in thread 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]
or 
sub filter_by_pat {
   my $pat = shift;
   return @_[ grep { $pat->[ $_ % @$pat ] } 0..$#_ ];
}

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

[download]

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]

      Let me rephrase: You are definitely mistaken about the restrictiveness of my code. The code I provided handles a pure list.

[reply]
        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]

In Section Seekers of Perl Wisdom