in reply to Find all string permutations

Higher-Order Perl using infinite streams with Regex.pm:
use Regex qw(literal union concat show);

# {a|b}cd{e|f|g}h

show(
    concat(
        concat(
            union(literal("a"), literal("b")),
            literal("cd"),
        ),
        concat(
            union(literal("e"), literal("f"), literal("g")),
            literal("h"),
        ),
    ),
);

__END__
"acdeh"
"bcdeh"
"acdfh"
"acdgh"
"bcdfh"
"bcdgh"

[download]

Replies are listed 'Best First'.
Re^2: Find all string permutations
by BrowserUk (Patriarch) on Apr 27, 2010 at 05:24 UTC

    All that's needed now is the code to generate that from the inpu t string :)

[reply]
        All that's needed now is the code to generate that from the inpu t string :)

      ... left as an exercise for the gracious reader (-;
[reply]

In Section Seekers of Perl Wisdom