Anonymous user
Largest palindrome product: Difference between revisions
→{{header|Mathematica}} / {{header|Wolfram Language}}
Line 709:
</pre>
=={{header|Mathematica}} / {{header|Wolfram Language}}==
<lang Mathematica>palindromeQ[n_] := (* faster than built in test PalindromeQ *)
Block[{digits = IntegerDigits@n}, digits == Reverse[digits]]
nextPair[n_] := (* outputs next pair of candidate divisors *)
Block[{next =
NestWhile[# - 11 &, n, ! MemberQ[{1, 3, 7, 9}, Mod[#, 10]] &],
Line 730:
First@# > resetLimit &]]], 2];
Flatten@cands[[Ordering[Times @@@ cands, -1]]]]
Grid[Join[{{"factors", "largest palindrome"}}, {#, Times @@ #} & /@
Table[search[n], {n, 2, 7}]], Alignment -> {Left, Baseline}]</lang>
Line 740 ⟶ 741:
{99979,99681} 9966006699
{999999,999001} 999000000999
{9997647,9998017} 99956644665999
</pre>
=={{header|Paper & Pencil}}==
| |||