Help for this page
Select Code to Download
Select
or
download this
sub interleave { @_[map $_&1 ? $_>>1 : ($_>>1)+($#_>>1), 1..@_] }