in reply to How do I double up elements within an array?
To do that in-place:
@array1 = (1,33,45,66); for (reverse 0..$#array1) { splice @array1, $_, 0, $array1[$_]; } print "@array1\n"; __END__ 1 1 33 33 45 45 66 66
--shmem
_($_=" "x(1<<5)."?\n".q·/)Oo. G°\ /
/\_¯/(q /
---------------------------- \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}
|
|---|