Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

Re^3: Finding all Combinations (subsets)

by tye (Sage)
on Oct 01, 2004 at 20:49 UTC ( #395756=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    use Algorithm::Loops qw( NestedLoops );
            if  @ARGV;
    } while(  @subSet= @set[ $iter->() ]  );
    print "$count subsets for $size in ", time()-$start, " secs.$/";
  2. or download this
    sub powerSetGen3 {
        my $end= shift(@_) - 1;
            return @idx;

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://395756]
[Discipulus]: to specify use 5.0.x to be sure to have pairmap from the module..
[Corion]: Discipulus: I think Module::Corelist ( or corelist ) can tell you that
[Corion]: Meh - Module::CoreList
[choroba]: Just use List::Util 1.29
[choroba]: Be kind to people using old Perl with newer version of the module
[Corion]: But why not simply specify 'List::Util' => 1.29 in your prerequisites? People might install a more recent version of the module into their Perl
[Corion]: (what choroba said)

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (6)
As of 2017-05-25 09:19 GMT
Find Nodes?
    Voting Booth?