Largest palindrome product: Difference between revisions
Added XPL0 example.
(→{{header|Wren}}: Removed unnecessary check (sigh).) |
(Added XPL0 example.) |
||
Line 186:
Largest palindromic product of two 6-digit integers: 999999 x 999001 = 999000000999
Largest palindromic product of two 7-digit integers: 9998017 x 9997647 = 99956644665999
</pre>
=={{header|XPL0}}==
<lang XPL0>func Rev(A); \Reverse digits
int A, B;
[B:= 0;
repeat A:= A/10;
B:= B*10 + rem(0);
until A = 0;
return B;
];
int Max, M, N, Prod;
[Max:= 0;
for M:= 100 to 999 do
for N:= 100 to 999 do
[Prod:= M*N;
if Prod = Rev(Prod) then
if Prod > Max then Max:= Prod;
];
IntOut(0, Max);
]</lang>
{{out}}
<pre>
906609
</pre>
| |||