Re^4: combining array items to match a certain string

Just adding an extra cat to the bag doesn't do the trick because the grep removes both cats when the first one is used. The code needs to be reworked so that we know how many of each part there are and so that they are removed one at a time. Consider:

use strict;
use warnings;

my $target = "cowboycatdogcat";
my @partsList = qw(cow boy cat dog cat);
my %partsLu;

++$partsLu{$_} for @partsList;

search ($target, {%partsLu}, []);

sub search {
    my ($target, $partsLu, $used) = @_;

    unless (length $target) {
        print join ("-", @$used), "\n";
        return;
    }

    for my $part (keys %$partsLu) {
        next unless 0 == index $target, $part;

        my $remainder = substr $target, length $part;

        delete $partsLu->{$part} unless --$partsLu->{$part};
        search ($remainder, {%$partsLu}, [@$used, $part]);
    }
}
[download]

Prints:

cow-boy-cat-dog-cat
[download]

Perl is environmentally friendly - it saves trees

Comment on Re^4: combining array items to match a certain string Select or Download Code

Replies are listed 'Best First'.
Re^5: combining array items to match a certain string by pc2 (Beadle) on Dec 23, 2007 at 20:36 UTC
great! thank you, it worked.	[reply]
Re^5: combining array items to match a certain string by pc2 (Beadle) on Mar 15, 2008 at 12:29 UTC
just for information, we are using a slightly modified version of the search code, which divides the words in commas and excludes similar outputs with doubled commas to divide the words, and, also, it puts the output in an @input array instead of printing it: `sub search { my ($target, $partsLu, $used) = @_; unless (length $target) { $v = join (",", @$used); if (substr($v, 0, 1) eq "," or $v =~ /,,/) {} else { push(@input, join (",", @$used))}; return; } for my $part (keys %$partsLu) { next unless 0 == index $target, $part; my $remainder = substr $target, length $part; delete $partsLu->{$part} unless --$partsLu->{$part}; search ($remainder, {%$partsLu}, [@$used, $part]); } }` [download]	[reply] [d/l]