challenge-023 ch-2 minor issue

1 files changed, 2 insertions, 0 deletions

diff --git a/challenge-023/andrezgz/perl5/ch-2.pl b/challenge-023/andrezgz/perl5/ch-2.pl
index 6a89eee9b4..fb50580c6c 100644
--- a/challenge-023/andrezgz/perl5/ch-2.pl
+++ b/challenge-023/andrezgz/perl5/ch-2.pl
@@ -25,12 +25,14 @@ print join ',', @prime_decomp;
 
 sub prime_factors {
     my $n = shift;
+    return if $n <= 1;
     my @r = grep {$n % $_ == 0 && is_prime($_)} (2 .. $n/2); #get prime divisors
     return @r ? @r : ($n); # number is prime if no prime divisors were found
 }
 
 sub is_prime {
     my $n = shift;
+    return if $n <= 1;
     #every composite number has a prime factor less than or equal to its square root.
     return 1 == grep {$n % $_ == 0} (1 .. sqrt $n);
 }