Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl 
    use strict;
    ...
    c+d+e
    a+d+e
    a+b+e
    
  2. or download this
    #!/usr/bin/perl 
    use strict;
    ...
    @results = grep{!$seen{"@$_"}++ }@results; # remove duplicates!
    
    print join ("+",@$_)."\n" for @results;