Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
    printf "( %s )\n", join ", ", map sprintf("(%s,%s)",@$_), @group;
    ## push @data, \@group;
}
  2. or download this
     > perl pairs.pl e 2
15 pairings:
...
( (b,c), (d,e) )
( (b,d), (c,e) )
( (b,e), (c,d) )
  3. or download this
    #!/usr/bin/perl -w
use strict;
...
    printf "( %s )\n", join ", ", map sprintf("(%s,%s)",@$_), @group;
    ## push @data, \@group;
}