fixed ch-2, added hour overflow

1 files changed, 7 insertions, 3 deletions

diff --git a/challenge-348/mahnkong/perl/ch-2.pl b/challenge-348/mahnkong/perl/ch-2.pl
index 42edda969d..fbb1af92ff 100644
--- a/challenge-348/mahnkong/perl/ch-2.pl
+++ b/challenge-348/mahnkong/perl/ch-2.pl
@@ -5,9 +5,9 @@ use Test::More 'no_plan';
 
 my @operations = (1, 5, 15, 60);
 
-sub get_minutes($str, $is_target = 0) {
+sub get_minutes($str) {
     my @parts = split /:/, $str;
-    if ($is_target && $parts[0] eq "00") {
+    if ($parts[0] eq "00") {
         $parts[0] = "24";
     }
     my $m = $parts[0]*60 + $parts[1];
@@ -15,7 +15,10 @@ sub get_minutes($str, $is_target = 0) {
 }
 
 sub run($source, $target) {
-    my $diff = get_minutes($target, 1) - get_minutes($source);
+    my $diff = get_minutes($target) - get_minutes($source);
+    if ($diff < 0) {
+        $diff = 1440 - abs($diff);
+    }
     my $operations = 0;
     while ($diff > 0) {
         foreach my $o (reverse(@operations)) {
@@ -34,3 +37,4 @@ is(run("11:55", "12:15"), 2, "Example 2");
 is(run("09:00", "13:00"), 4, "Example 3");
 is(run("23:45", "00:30"), 3, "Example 4");
 is(run("14:20", "15:25"), 2, "Example 5");
+is(run("22:20", "04:20"), 6, "Example 6");