diff options
| -rw-r--r-- | challenge-168/cheok-yin-fung/perl/ch-2.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/challenge-168/cheok-yin-fung/perl/ch-2.pl b/challenge-168/cheok-yin-fung/perl/ch-2.pl index 0518d1dbcd..3289846cfe 100644 --- a/challenge-168/cheok-yin-fung/perl/ch-2.pl +++ b/challenge-168/cheok-yin-fung/perl/ch-2.pl @@ -1,3 +1,5 @@ +# CAN BE IMPROVED + #!/usr/bin/perl # The Weekly Challenge 168 # Task 2 Home Prime @@ -39,7 +41,7 @@ sub my_hp { $num /= $p; } else { - $p = next_prime($p); + $p = next_prime($p); # CAN BE IMPROVED } } while ($num != 1); my $nxt = (reduce { $a . $b } @factors); |