枚舉下令所有可能的長度標記在Perl

Question

鑑於此字符串：

<VACC-PROP-0><VACC-PROP-0><NUM><EXP-V-0><MIR-0><PREP> 

我想要做的是枚舉所有可能的有序長度是這樣的：

<VACC-PROP-0><VACC-PROP-0><NUM><EXP-V-0><MIR-0><PREP> 
<VACC-PROP-0><VACC-PROP-0><NUM><EXP-V-0><MIR-0> 
<VACC-PROP-0><VACC-PROP-0><NUM><EXP-V-0> 
<VACC-PROP-0><VACC-PROP-0><NUM> 
<VACC-PROP-0><VACC-PROP-0> 
<VACC-PROP-0> 

<VACC-PROP-0><NUM><EXP-V-0><MIR-0><PREP> 
<NUM><EXP-V-0><MIR-0><PREP> 
<EXP-V-0><MIR-0><PREP> 
<MIR-0><PREP> 
<PREP> 

不是說上面是手工完成。我可能會錯過一些東西。 但這個想法是確定所有長度（令牌的數量）的所有可能的有序令牌。 我試過這段代碼但失敗了，最好的辦法是什麼？

use Data::Dumper; 
my $str = "<VACC-PROP-0><VACC-PROP-0><NUM><EXP-V-0><MIR-0><PREP>"; 

# Remove all the brackets 
my @tokens = grep {!/^$/} split(/[><]/,$str); 

# Print the combinations 
foreach my $i (0 .. $#tokens) { 

    print join(" ", @tokens[0..$i]),"\n"; 
} 

執行此：https://eval.in/51023

Answer 1

你想任意深度的嵌套循環。

for my $use_token0 (0..1) { 
    for my $use_token1 (0..1) { 
     for my $use_token2 (0..1) { 
     ... 
     } 
    } 
} 

對於這一點，你用Algorithm::Loops的NestedLoops。

use Algorithm::Loops qw(NestedLoops); 

my $str = "<VACC-PROP-0><VACC-PROP-0><NUM><EXP-V-0><MIR-0><PREP>"; 
my @tokens = split /(?<=>)(?=<)/, $str; 

my $iter = NestedLoops([ ([0,1]) x @tokens ]); 
while (my @bools = $iter->()) { 
    say @tokens[ grep $bools[$_], 0..$#tokens ]; 
} 

雖然，在這種情況下，你可以簡單地使用

my $str = "<VACC-PROP-0><VACC-PROP-0><NUM><EXP-V-0><MIR-0><PREP>"; 
my @tokens = split /(?<=>)(?=<)/, $str; 

for my $i (0 .. (1<<@tokens)-1) { 
    say @tokens[ grep $i & (1 << ($#tokens-$_)), 0..$#tokens ]; 
}