Help for this page

Select Code to Download


  1. or download this
    my @c = do { my %tmp = map { $_ => 1 } @a; grep {$tmp{$_}} @b };
  2. or download this
    for (1..@foo/2) { @foo[$_-1,-$_] = @foo[-$_,$_-1]; }
  3. or download this
    @foo = map { pop(@foo) } 1..@foo;