Re^6: split every other value

I added the foreach-push one before posting because the slice is probably too obscure for most people

Assuming you are talking about:

my (@even, @odd) = @field[
    map { $_, $_ + @field / 2 } 0 .. ( @field / 2 ) - 1
];
[download]

it's not just obscure, it doesn't work. @even will get assigned all the fields. You need something like:

my (@even, @odd);
(@even[0..(@field/2)-1], @odd[0..(@field/2)-1]) =
[download]

Comment on Re^6: split every other value Select or Download Code

Replies are listed 'Best First'.
Re^7: split every other value by Aristotle (Chancellor) on Aug 07, 2004 at 01:05 UTC
Yes, that's the one I was talking about, and yes, you are right. Trying to correct along another line that leads me to another nice solution: `my @field = split /,/, $text; my @even = @field[ map $_ * 2, 0 .. ( @field / 2 ) - 1 ]; my @odd = @field[ map $_ * 2 + 1, 0 .. ( @field / 2 ) - 1 ];` [download] (Despite the two maps, it only iterates once — a half-iteration in each of them.) Makeshifts last the longest.	[reply] [d/l]

Replies are listed 'Best First'.

Re^7: split every other value
by Aristotle (Chancellor) on Aug 07, 2004 at 01:05 UTC

Yes, that's the one I was talking about, and yes, you are right. Trying to correct along another line that leads me to another nice solution:

my @field = split /,/, $text;

my @even = @field[ map $_ * 2,     0 .. ( @field / 2 ) - 1 ];
my @odd  = @field[ map $_ * 2 + 1, 0 .. ( @field / 2 ) - 1 ];
[download]

(Despite the two maps, it only iterates once — a half-iteration in each of them.)

Makeshifts last the longest.

[reply]
[d/l]