diff options
| author | E7-87-83 <fungcheokyin@gmail.com> | 2022-03-17 16:53:36 +0800 |
|---|---|---|
| committer | E7-87-83 <fungcheokyin@gmail.com> | 2022-03-17 16:53:36 +0800 |
| commit | 4f9000fbb6d750dec4d1ff5b9c9a42e7085a5e13 (patch) | |
| tree | c454eb6b3a0c375243811e720999fe353c944993 | |
| parent | e194c1e13f183c7f84882a8bb44d8b543c642bef (diff) | |
| download | perlweeklychallenge-club-4f9000fbb6d750dec4d1ff5b9c9a42e7085a5e13.tar.gz perlweeklychallenge-club-4f9000fbb6d750dec4d1ff5b9c9a42e7085a5e13.tar.bz2 perlweeklychallenge-club-4f9000fbb6d750dec4d1ff5b9c9a42e7085a5e13.zip | |
edge case n=1
| -rw-r--r-- | challenge-156/cheok-yin-fung/perl/ch-2.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/challenge-156/cheok-yin-fung/perl/ch-2.pl b/challenge-156/cheok-yin-fung/perl/ch-2.pl index 0410a55139..ef83ce1222 100644 --- a/challenge-156/cheok-yin-fung/perl/ch-2.pl +++ b/challenge-156/cheok-yin-fung/perl/ch-2.pl @@ -19,6 +19,7 @@ if (defined($ARGV[0])) { sub weird { my $num = $_[0]; + return 0 if $num == 1; my @proper_divisors = proper_divisors($num); return 0 if (sum @proper_divisors) < $num; return !subset_sum($num, [@proper_divisors]); |