Help for this page

Select Code to Download


  1. or download this
    $_='A # B # 1 # 2';
print
...
    sub { map @_[$_,$_+@_/2], 0..$#_/2 }->(
      split / # / 
    );
  2. or download this
    sub pair { map @_[$_,$_+@_/2], 0..$#_/2 }

$_='A # B # 1 # 2';
print join ' # ', pair split / # /;
  3. or download this
    sub pair { map @_[$_,$_+@_/2], 0..$#_/2 }
sub pair { map $_[($_&1)*@_/2+($_>>1)], 0..$#_ }

sub pair { @_[ map +($_,$_+@_/2]), 0..$#_/2 ] }
sub pair { @_[ map ($_&1)*@_/2+($_>>1), 0..$#_ ] }