本文介绍如何利用Mathematica内置函数处理回文数，通过几个简单的命令即可实现回文数的判断与筛选，例如挑选10000内的所有回文数。
在Mathematica里处理回文数非常简单，主要用到几个命令：
IntegerDigits[n, k]，返回n的k进制表示；
Reverse[list]，返回序列list的反序；
Select[list,condition &]，从list中挑选出满足条件的值组成新的列表；
举例来说，挑选10000的回文数，可以使用命令
Select[Range[10000], Reverse[IntegerDigits[#]] == IntegerDigits[#] &]这样就解决了Projecteuler 第36题。
扫一扫
570
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
