diff options
| author | CY Fung <fungcheokyin@gmail.com> | 2022-06-19 12:36:52 +0800 |
|---|---|---|
| committer | CY Fung <fungcheokyin@gmail.com> | 2022-06-19 12:36:52 +0800 |
| commit | 40a70f985d102eb57f025c4f9e50095b7a182ea9 (patch) | |
| tree | 0357abb7bd250e5b36390130cc3e8aa3981e452d | |
| parent | bcfe0881d4f6beb19144d18320cd8d717fdfc8d1 (diff) | |
| download | perlweeklychallenge-club-40a70f985d102eb57f025c4f9e50095b7a182ea9.tar.gz perlweeklychallenge-club-40a70f985d102eb57f025c4f9e50095b7a182ea9.tar.bz2 perlweeklychallenge-club-40a70f985d102eb57f025c4f9e50095b7a182ea9.zip | |
improve Task 1, given-when
| -rw-r--r-- | challenge-169/cheok-yin-fung/perl/ch-1.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-169/cheok-yin-fung/perl/ch-1.pl b/challenge-169/cheok-yin-fung/perl/ch-1.pl index 7eb6e9c5e1..b183ed17b0 100644 --- a/challenge-169/cheok-yin-fung/perl/ch-1.pl +++ b/challenge-169/cheok-yin-fung/perl/ch-1.pl @@ -45,9 +45,9 @@ sub bn { given ($req) { $digit_len = 1 when $_ <= 10; - $digit_len = 2 when $_ > 10 && $_ <= 241; - $digit_len = 3 when $_ > 241 && $_ <= 10537; - $digit_len = 4 when $_ > 10537 && $_ <= 573928; + $digit_len = 2 when $_ <= 241; + $digit_len = 3 when $_ <= 10537; + $digit_len = 4 when $_ <= 573928; default {die "You're asking too many!\n";} } |