henning-mankell

#!/usr/local/bin/perl6
use v6;
use GGE;

my $pattern = '<[hm]> <[ea]> [nk|n|nn] [ing|ell|all]';
# Add :debug to the below call to see AST and generated code
my $ast = GGE::Perl6Regex.new($pattern).exp;

.say for generate($ast);

multi generate(GGE::Exp::Concat $_) {
    my @result = "";
    @result = @result X~ generate($_) for .list;
    return @result;
}
multi generate(GGE::Exp::EnumCharList $_) { .ast.comb }
multi generate(GGE::Exp::Alt $_) { generate($_) for .[0], .[1] }
multi generate(GGE::Exp::Literal $_) { .ast }
multi generate(GGE::Exp $_) { die "Unhandled expression type {.WHAT.perl}" }