diff options
| author | Luis Mochan <mochan@fis.unam.mx> | 2021-07-07 08:33:49 -0500 |
|---|---|---|
| committer | Luis Mochan <mochan@fis.unam.mx> | 2021-07-07 08:33:49 -0500 |
| commit | d8bf5857b566e4edc51de18eb44e7aa0bd79e88c (patch) | |
| tree | f08bbdadc78f551d461d9f173b924b91a7d7e8cc | |
| parent | 438a3d43a1082464d37b8e842fd6ecf2f1811682 (diff) | |
| download | perlweeklychallenge-club-d8bf5857b566e4edc51de18eb44e7aa0bd79e88c.tar.gz perlweeklychallenge-club-d8bf5857b566e4edc51de18eb44e7aa0bd79e88c.tar.bz2 perlweeklychallenge-club-d8bf5857b566e4edc51de18eb44e7aa0bd79e88c.zip | |
Add constrictions
| -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"; |