Help for this page

Select Code to Download


  1. or download this
    my @arr = (0,1,2,3,1,2);
    
    ...
              unless($_ ~~ @uniq){push @uniq, $_}
    }
    print join ' ', @uniq;
    
  2. or download this
    use List::Util qw(any);
    my @arr = (0,1,2,3,1,2);
    ...
    }
    print join ' ', @uniq;