回文
回文とは,左から読んでも右から読んでも等しい数,単語あるいは文のことである.PalindromeQ,そのオプション,その他の文字列関連低レベル関数を使って回文構造の単語や文を調べる.
次は英語の回文である.
In[1]:=
![Click for copyable input](assets.ja/palindromes/In_17.png)
PalindromeQ["racecar"]
Out[1]=
![](assets.ja/palindromes/O_13.png)
Annaという名前も,大文字小文字の違いを無視すれば回文である.
In[2]:=
![Click for copyable input](assets.ja/palindromes/In_18.png)
PalindromeQ["Anna", IgnoreCase -> True]
Out[2]=
![](assets.ja/palindromes/O_14.png)
Decapitalizeを使って頭文字を小文字にすることもできる.
In[3]:=
![Click for copyable input](assets.ja/palindromes/In_19.png)
PalindromeQ[Decapitalize["Anna"]]
Out[3]=
![](assets.ja/palindromes/O_15.png)
フランス語の「rêver」も,付加記号を無視すれば回文である.
In[4]:=
![Click for copyable input](assets.ja/palindromes/In_20.png)
PalindromeQ["rêver", IgnoreDiacritics -> True]
Out[4]=
![](assets.ja/palindromes/O_16.png)
代りにRemoveDiacriticsを使ってこの動詞から付加記号を取り除くこともできる.
In[5]:=
![Click for copyable input](assets.ja/palindromes/In_21.png)
PalindromeQ[RemoveDiacritics["rêver"]]
Out[5]=
![](assets.ja/palindromes/O_17.png)
回文構造の文の場合も,最初に文字列を処理する必要があるのが普通である.
In[6]:=
![Click for copyable input](assets.ja/palindromes/In_22.png)
sentence = "Now, sir, a war is won!";
In[7]:=
![Click for copyable input](assets.ja/palindromes/In_23.png)
PalindromeQ[sentence]
Out[7]=
![](assets.ja/palindromes/O_18.png)
In[8]:=
![Click for copyable input](assets.ja/palindromes/In_24.png)
StringDelete[sentence, PunctuationCharacter | Whitespace]
Out[8]=
![](assets.ja/palindromes/O_19.png)
In[9]:=
![Click for copyable input](assets.ja/palindromes/In_25.png)
StringDelete[sentence, PunctuationCharacter | Whitespace];
PalindromeQ[%, IgnoreCase -> True]
Out[9]=
![](assets.ja/palindromes/O_20.png)