Help for this page

Select Code to Download


  1. or download this
    my @evens = @all[map $_*2+1, 0..$#all/2];
    
  2. or download this
    my @evens = @all[grep !($_ % 2), 0..$#all];    # even-index elements
    my @odds  = @all[grep $_ % 2, 0..$#all];       # odd-index  elements