Erdős-Nicolas numbers: Difference between revisions
m
→{{header|Perl}}: simplify a tiny bit
(Added Sidef) |
m (→{{header|Perl}}: simplify a tiny bit) |
||
Line 1,115:
foreach my $d (divisors($n)) {
++$count; $sum += $d;
return False if ($sum > $n);
}
}
| |||