Help for this page

Select Code to Download


  1. or download this
    #! perl -slw
    use strict;
    ...
    dedup \@a;
    print scalar @a;
    #print "@a";
    
  2. or download this
    #! perl -slw
    use strict;
    ...
    print scalar @a, ":@a";
    dedup \@a;
    print scalar @a, ":@a";