PEをMathematicaで

Project Eulerに挑戦してみよう

Project Euler 4 / 最大の回文積

左右どちらから読んでも同じ値になる数を回文数という。2桁の数の積で表される回文数のうち, 最大のものは 9009 = 91 × 99 である。3桁の数の積で表される回文数の最大値を求めよ。

Problem 4 - Project Euler

回文数の判定は IntegerDigits と Reverse でできます。

IntegerDigits[x] == Reverse[IntegerDigits[x]]

これを判定条件としてループさせます。

追記

元記事を書いた頃は PalindromeQ で回文数の判定ができることを知りませんでした。ところが,これを使うように直してみたら遅くなってしまいました。なぜ? 並列化しても無駄でした。