From d8bf5857b566e4edc51de18eb44e7aa0bd79e88c Mon Sep 17 00:00:00 2001
From: Luis Mochan <mochan@fis.unam.mx>
Date: Wed, 7 Jul 2021 08:33:49 -0500
Subject: Add constrictions

---
 challenge-120/wlmb/perl/ch-2.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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";
-- 
cgit