6 lines
104 B
Perl
6 lines
104 B
Perl
use List::Util qw(sum);
|
|
|
|
sub perf {
|
|
my $n = shift;
|
|
$n == sum(0, grep {$n % $_ == 0} 1..$n-1);
|
|
}
|