Anonymous user
Perfect numbers: Difference between revisions
→{{header|Perl}}: fix uninitialized value warning when doing functional style perf(1) with "use warnings"
m (→[[Perfect_numbers#ALGOL 68]]: fix pre tag) |
(→{{header|Perl}}: fix uninitialized value warning when doing functional style perf(1) with "use warnings") |
||
Line 461:
sub perf {
my $n = shift;
$n == sum(0, grep {$n % $_ == 0} 1..$n-1);
}</lang>
| |||