From 4f9000fbb6d750dec4d1ff5b9c9a42e7085a5e13 Mon Sep 17 00:00:00 2001
From: E7-87-83 <fungcheokyin@gmail.com>
Date: Thu, 17 Mar 2022 16:53:36 +0800
Subject: edge case n=1

---
 challenge-156/cheok-yin-fung/perl/ch-2.pl | 1 +
 1 file changed, 1 insertion(+)

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]);
-- 
cgit