Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re^3: Powerset short-circuit optimization

by ikegami (Pope)
on Oct 03, 2006 at 23:29 UTC ( #576205=note: print w/replies, xml ) Need Help??

in reply to Re^2: Powerset short-circuit optimization
in thread Powerset short-circuit optimization

The following only calls _v 15 times. ;) Of course, splice (or its optimized equivalent) and %seen are still called 29 times, but that's a far cry less than the possible 41. Also, even with the original code, the (presumably expensive) callback is only called 15 times.

local *_r = sub { my @v = @_; return if not $cb->(@v); return if @v == 1; for (0..$#v) { my @v_ = @v; splice(@v_, $#v-$_, 1); _r(@v_) if not $seen{join $;, @v_}++; } };

It breaks the rule "A,B,C should be generated before A,C", but the following might allow you to break down the problem such that your requirements can be loosened:

my ($u_set1, $u_set2, $common) = extract_common($set1, $set2); my $psetc = powerset($common); my $pset1 = product($psetc, powerset($u_set1)); my $pset2 = product($psetc, powerset($u_set2)); my $pset = union($pset1, $pset2);

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://576205]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (6)
As of 2020-10-27 11:12 GMT
Find Nodes?
    Voting Booth?
    My favourite web site is:

    Results (256 votes). Check out past polls.