Select Code to Download

sub zip {
    my $half = @_>>1;
    return @_[map { ($_&1 && $half) + ($_>>1) } 0 .. $#_];
}

sub zip {
    my $half = @_>>1;
    return @_[map { $_, $_+$half } 0 .. $half-1];
}