在Mathematica里处理回文数非常简单,主要用到几个命令:
IntegerDigits[n, k],返回n的k进制表示;
Reverse[list],返回序列list的反序;
Select[list,condition &],从list中挑选出满足条件的值组成新的列表;
举例来说,挑选10000的回文数,可以使用命令
Select[Range[10000], Reverse[IntegerDigits[#]] == IntegerDigits[#] &]
这样就解决了Projecteuler 第36题。