Anonymous user
Largest palindrome product: Difference between revisions
→{{header|Mathematica}} / {{header|Wolfram Language}}
Line 711:
<lang Mathematica>palindromeQ[n_] :=
Block[{digits = IntegerDigits@n}, digits == Reverse[digits]]
nextPair[n_] :=
▲ Block[{next =
NestWhile[# - 11 &, n, ! MemberQ[{1, 3, 7, 9}, Mod[#, 10]] &],
len = Last@RealDigits@n},
{next, 10^len - Switch[Mod[next, 10], 1, 1, 3, 7, 7, 3, 9, 9]}]
search[n_] :=
Block[{resetLimit = 10^(n - Floor[n/2]) (10^Floor[n/2] - 1), cands},
cands =
| |||