Help for this page
@a[ grep { $pat[ $_ % @$pat ] } 0..$#a ]
sub filter_by_pat { my $pat = shift; ... } filter_by_pat [0,1,1,0], ...
www.com | www.net | www.org
No recent polls found