From bcfe0881d4f6beb19144d18320cd8d717fdfc8d1 Mon Sep 17 00:00:00 2001 From: CY Fung Date: Sun, 19 Jun 2022 12:34:58 +0800 Subject: improve Task 1, given-when --- challenge-169/cheok-yin-fung/perl/ch-1.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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; -- cgit