diff options
| -rwxr-xr-x | challenge-120/wlmb/perl/ch-2.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/challenge-120/wlmb/perl/ch-2.pl b/challenge-120/wlmb/perl/ch-2.pl index bc3a3d07f4..322dff94c2 100755 --- a/challenge-120/wlmb/perl/ch-2.pl +++ b/challenge-120/wlmb/perl/ch-2.pl @@ -8,7 +8,9 @@ use warnings; use v5.12; for(@ARGV){ - say "Wrong format: $_", next unless $_=~m/^(\d?\d):(\d\d)$/; + say "Wrong format: $_", next + unless $_=~m/^(\d?\d):(\d\d)$/ + && 0<=$1<=24 && 0<=$1<60; # <24? my $angle=(30*($1+$2/60)-$2*6)%360; $angle=360-$angle if $angle>180; say "Input: $_, Output: $angle"; |