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