怎样搜寻回文的单词或数字

1、判断字符串是否回文：PalindromeQ["甜水甜"]

3、如果忽略大小写，那么Aha也是回文的：PalindromeQ["Aha",IgnoreCase->True]

5、去掉标点符号，上面那句话就是回文的了。

7、有一个著名的回文数猜想，恰好可以尝试用mathematica来检验：f[n_]:=IntegerReverse[n]+na=NestList[f,569,100];Table[If[PalindromeQ[a[[n]]],{n,a[[n]]},0],{n,1,Length[a]}]//Union