diff options
| author | CY Fung <fungcheokyin@gmail.com> | 2022-06-19 12:34:58 +0800 |
|---|---|---|
| committer | CY Fung <fungcheokyin@gmail.com> | 2022-06-19 12:34:58 +0800 |
| commit | bcfe0881d4f6beb19144d18320cd8d717fdfc8d1 (patch) | |
| tree | 4365bc1746ade40f33c73d9fb91137d3ab0f0e65 | |
| parent | 98fb7f4abbac258af5af6b17001f045458de8692 (diff) | |
| download | perlweeklychallenge-club-bcfe0881d4f6beb19144d18320cd8d717fdfc8d1.tar.gz perlweeklychallenge-club-bcfe0881d4f6beb19144d18320cd8d717fdfc8d1.tar.bz2 perlweeklychallenge-club-bcfe0881d4f6beb19144d18320cd8d717fdfc8d1.zip | |
improve Task 1, given-when
| -rw-r--r-- | challenge-169/cheok-yin-fung/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-169/cheok-yin-fung/perl/ch-1.pl b/challenge-169/cheok-yin-fung/perl/ch-1.pl index 35ffb2573f..7eb6e9c5e1 100644 --- a/challenge-169/cheok-yin-fung/perl/ch-1.pl +++ b/challenge-169/cheok-yin-fung/perl/ch-1.pl @@ -48,7 +48,7 @@ sub bn { $digit_len = 2 when $_ > 10 && $_ <= 241; $digit_len = 3 when $_ > 241 && $_ <= 10537; $digit_len = 4 when $_ > 10537 && $_ <= 573928; - die "You're asking too many!\n" when $_ > 573928; + default {die "You're asking too many!\n";} } eval { forprimes {push $prime{3}->@*, $_} 100, 999; } if $digit_len >= 3; |