1、判断字符串是否回文：
PalindromeQ["甜水甜"]
2、PalindromeQ["Aha"]
Aha就不是回文的，因为大小写不一致。
3、如果忽略大小写，那么Aha也是回文的：
PalindromeQ["Aha",IgnoreCase->True]
4、句子本身是回文的，但是标点符号导致判断错误：
PalindromeQ["人过大佛寺，寺佛大过人。"]
5、去掉标点符号，上面那句话就是回文的了。
6、判断数字是不是回文数。
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
8、然而对于196，就难以检验了。
迭代10000次，都没发现回文数。
