Self numbers: Difference between revisions
m
→{{header|Perl}}: removed unused variables
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: removed unused variables) |
|||
Line 1,654:
use List::Util qw(max sum);
my (
= (
my $final = 50;
Line 1,668:
if ($isSelf) {
push @selfs, $
last if @selfs == $final;
}
next unless ++$i % $pow == 0;▼
▲ next unless $i%$pow == 0;
$pow *= 10;
$offset = 9 * $digits++
|