perl内の文字列の文字順

Question

同じ文字が文字列内に置かれている限り、文字の並び順が同じであると見なすコードを作成したいと思います。たとえば、誰かが文字列値 "svk"または "kvs"を入力すると、$ a = "ksv"と仮定して、これらの文字列が$ aと等しいコードを記述したいとします。ここに例があります。

@ans=("ksv", "kvs", "svk", "vsk",......); 

if (@input[1] ~~ @ans) { 
      return 'EXACT_ANS'; 
} 

@ input [1]はユーザーが文字列を入力するものです。最初は、配列の要素のいずれかが@input [1]と一致した場合、正しい答えとして返すように、配列のさまざまな種類をすべて配列としてリストしました（例のように）。しかし、長めの長さのストリングがあれば、これはかなり長時間の面倒な作業です。これについて私に助言を与えてください。あなたはあなたがnormalize_stringはすべて同等の入力に同じ文字列を返す、と等価ではない入力の異なる文字列を返すサブあるフォーム

if (normalize_string($input) eq normalize_string('ksv')) { 
    ... 
} 

の何かをしたい

Answer 1

を^^ありがとうございます。

---

normalize_stringの正確な定義は、同等とみなされる内容によって異なります。

あなたが重複した文字を無視したい場合は

（ abbcが abcに同等である）：

sub normalize_string { 
    my %h; 
    ++$h{$_} for split //, $_[0]; 
    return join '', sort keys %h; 
} 

各文字のインスタンスの数が適切である場合（abbcはabcに同等ではありません）：

sub normalize_string { 
    return join '', sort split //, $_[0]; 
} 

---

もちろん、パラメータが定数の場合、正規化されたフォームをインライン化できます。