Help for this page

Select Code to Download


  1. or download this
    @AoD = ([11,12,22], [11,12,22], [13,15,18]);
  2. or download this
    @AoD = ([11,12,22], [13,15,18]);
  3. or download this
    my %seen
@AoD = grep !$seen{$_}++, @AoD;
  4. or download this
    my %seen = map { $_ => 1 } @AoD;
@AoD = keys(%seen);