Largest palindrome product: Difference between revisions
m
→{{header|Perl}}: 'reverse' suffices
SqrtNegInf (talk | contribs) (Added Perl) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: 'reverse' suffices) |
||
Line 83:
for my $l (2..7) {
LOOP:
for my $p (
my @f =
next unless @f >= 2 and $p == $f[0] * $f[1];
say "Largest palindromic product of two @{[$l]}-digit integers: $f[1] × $f[0] = $p" and last LOOP;
| |||