Re^2: Generating all possible combinations from an AoA

in reply to Re: Generating all possible combinations from an AoA
in thread Generating all possible combinations from an AoA

Like this?

@results = ('');
foreach my $subarray (@array) {
    @results = map {my $res = $_;
                    map $res.$_, @$subarray
                    } @results;
}
print join "\n", @results,'';
[download]

Comment on Re^2: Generating all possible combinations from an AoA Download Code

Replies are listed 'Best First'.
Re^3: Generating all possible combinations from an AoA by Zarabozo (Sexton) on Sep 22, 2013 at 05:55 UTC
Best answer to this problem I've seen so far, where everybody replies with long solutions or black boxes. Short, no globs, no modules, clear and readable. Very good! :-)	[reply]

In Section Seekers of Perl Wisdom