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
