Palíndromos
Um palíndromo é um número, uma palavra, ou oração que são lidos da mesma forma da esquerda pra direita e da direita pra esquerda. Use PalindromeQ, suas opções, e outras funções de baixo nível relacionadas com cadeia de caracteres para testar palavras e orações palíndromas.
Este é um palíndromo em inglês.
In[1]:=
![Click for copyable input](assets.pt-br/palindromes/In_17.png)
PalindromeQ["racecar"]
Out[1]=
![](assets.pt-br/palindromes/O_13.png)
O nome Anna também é um palíndromo, mas você ignora a letra maiúscula.
In[2]:=
![Click for copyable input](assets.pt-br/palindromes/In_18.png)
PalindromeQ["Anna", IgnoreCase -> True]
Out[2]=
![](assets.pt-br/palindromes/O_14.png)
Use Decapitalize como uma alternativa para fazer com que o primeiro caractere apareça em letra minúscula.
In[3]:=
![Click for copyable input](assets.pt-br/palindromes/In_19.png)
PalindromeQ[Decapitalize["Anna"]]
Out[3]=
![](assets.pt-br/palindromes/O_15.png)
O verbo em francês "rêver" é um palíndromo também, mas você tem que ignorar o acento.
In[4]:=
![Click for copyable input](assets.pt-br/palindromes/In_20.png)
PalindromeQ["rêver", IgnoreDiacritics -> True]
Out[4]=
![](assets.pt-br/palindromes/O_16.png)
Use RemoveDiacritics para processar o verbo.
In[5]:=
![Click for copyable input](assets.pt-br/palindromes/In_21.png)
PalindromeQ[RemoveDiacritics["rêver"]]
Out[5]=
![](assets.pt-br/palindromes/O_17.png)
Com frases palíndromas, geralmente você precisa também processar a cadeia de caracteres inicial.
In[6]:=
![Click for copyable input](assets.pt-br/palindromes/In_22.png)
sentence = "Now, sir, a war is won!";
In[7]:=
![Click for copyable input](assets.pt-br/palindromes/In_23.png)
PalindromeQ[sentence]
Out[7]=
![](assets.pt-br/palindromes/O_18.png)
In[8]:=
![Click for copyable input](assets.pt-br/palindromes/In_24.png)
StringDelete[sentence, PunctuationCharacter | Whitespace]
Out[8]=
![](assets.pt-br/palindromes/O_19.png)
In[9]:=
![Click for copyable input](assets.pt-br/palindromes/In_25.png)
StringDelete[sentence, PunctuationCharacter | Whitespace];
PalindromeQ[%, IgnoreCase -> True]
Out[9]=
![](assets.pt-br/palindromes/O_20.png)