2 lines
89 B
Perl
2 lines
89 B
Perl
use ntheory qw/divisor_sum/;
|
|
sub is_perfect { my $n = shift; divisor_sum($n) == 2*$n; }
|