regex - 正規表現を使用して、5文字のabcdeを含む単語を検索します。各文字は、途切れることなく、任意の順序で1回だけ表示されます。

Question

たとえば、debacleという単語はdebacのために機能しますが、 seabedは次の理由で機能しません。1。形成できる5文字のシーケンスにcがない、2。文字eが2回出現する。別の例として、フィードバックはedbacのために機能します。また、解決策は正規表現のみを使用して実行する必要があることを忘れないでください。

私が実装しようとした戦略は、最初の文字が[ae]内にある場合はそれと一致し、それを覚えておくというものでした。次に、[ae]で次の文字を見つけますが、最初の文字は見つけません。等々。構文が何であるか（または構文が存在する場合でも）わからなかったため、コードが機能しませんでした。

open(DICT, "dictionary.txt");
@words = <DICT>;

foreach my $word(@words){

if ($word =~ /([a-e])([a-e^\1])([a-e^\1^\2])([a-e^\1^\2^\3])([a-e^\1^\2^\3^\4])/
){
    print $word;
}
}

（？= regex）と\ Gを使用することも考えていましたが、どのように機能するかわかりませんでした。

score 15 · Accepted Answer

/
   (?= .{0,4}a )
   (?= .{0,4}b )
   (?= .{0,4}c )
   (?= .{0,4}d )
   (?= .{0,4}e )
/xs

おそらく、すべての組み合わせからパターンを生成するためのマッチングが高速になります。

use Algorithm::Loops qw( NextPermute );
my @pats;
my @chars = 'a'..'e';
do { push @pats, quotemeta join '', @chars; } while NextPermute(@chars);
my $re = join '|', @pats;

(これは Perl 5.10+ でトライに最適化されます。5.10 より前では、Regexp::List を使用してください。)

score 7 · Accepted Answer

あなたのソリューションは賢いですが、残念ながら[a-e^...]うまくいきません。通常の文字クラスと否定された文字クラスを混在させる方法があるとは思いません。ただし、先読みを使用して回避策を考えることができます。

    /(([a-e])(?!\2)([a-e])(?!\2)(?!\3)([a-e])(?!\2)(?!\3)(?!\4])([a-e])(?!\2)(?!\3)(?!\4])(?!\5)([a-e]))/

こちらを参照してください: http://rubular.com/r/6pFrJe78b6 .

更新: Mob は以下のコメントで、上記を圧縮するために代替を使用できることを指摘しています。

    /(([a-e])(?!\2)([a-e])(?!\2|\3)([a-e])(?!\2|\3|\4])([a-e])(?!\2|\3|\4|\5)([a-e]))/

新しいデモ: http://rubular.com/r/UUS7mrz6Ze .

score 6 · Accepted Answer

#! perl -lw
for (qw(debacle seabed feedback)) {
    print if /([a-e])(?!\1)
        ([a-e])(?!\1)(?!\2)
        ([a-e])(?!\1)(?!\2)(?!\3)
        ([a-e])(?!\1)(?!\2)(?!\3)(?!\4)
        ([a-e])/x;
}

regex - 正規表現を使用して、5文字のabcdeを含む単語を検索します。各文字は、途切れることなく、任意の順序で1回だけ表示されます。

3 に答える 3

Related

Reference