Merge pull request #9832 from pme/challenge-262

Challenge 262

2 files changed, 11 insertions, 10 deletions

diff --git a/challenge-262/peter-meszaros/perl/ch-1.pl b/challenge-262/peter-meszaros/perl/ch-1.pl
index a4a3be4d46..b739589c01 100755
--- a/challenge-262/peter-meszaros/perl/ch-1.pl
+++ b/challenge-262/peter-meszaros/perl/ch-1.pl
@@ -37,9 +37,9 @@ use Test2::V0 -no_srand => 1;
 use Data::Dumper;
 
 my $cases = [
-    [-3, 1, 2, -1, 3, -2, 4],
-    [-1, -2, -3, 1],
-    [1,2],
+    [[-3, 1, 2, -1, 3, -2, 4], 4, 'Example 1'],
+    [[-1, -2, -3, 1],          3, 'Example 2'],
+    [[1,2],                    2, 'Example 3'],
 ];
 
 sub max_positive_negative
@@ -58,9 +58,9 @@ sub max_positive_negative
 	return $pos > $neg ? $pos : $neg;
 }
 
-is(max_positive_negative($cases->[0]), 4, 'Example 1');
-is(max_positive_negative($cases->[1]), 3, 'Example 2');
-is(max_positive_negative($cases->[2]), 2, 'Example 3');
+for (@$cases) {
+    is(max_positive_negative($_->[0]), $_->[1], $_->[2]);
+}
 done_testing();
 
 exit 0;
diff --git a/challenge-262/peter-meszaros/perl/ch-2.pl b/challenge-262/peter-meszaros/perl/ch-2.pl
index 36e108b69f..abf2656c95 100755
--- a/challenge-262/peter-meszaros/perl/ch-2.pl
+++ b/challenge-262/peter-meszaros/perl/ch-2.pl
@@ -30,8 +30,8 @@ use Test2::V0 -no_srand => 1;
 use Data::Dumper;
 
 my $cases = [
-    [[3, 1, 2, 2, 2, 1, 3], 2],
-    [[1, 2, 3], 1],
+    [[[3, 1, 2, 2, 2, 1, 3], 2], 4, 'Example 1'],
+    [[[1, 2, 3], 1],             0, 'Example 2'],
 ];
 
 sub count_equal_divisable
@@ -54,8 +54,9 @@ sub count_equal_divisable
     return $r;
 }
 
-is(count_equal_divisable($cases->[0]), 4, 'Example 1');
-is(count_equal_divisable($cases->[1]), 0, 'Example 2');
+for (@$cases) {
+    is(count_equal_divisable($_->[0]), $_->[1], $_->[2]);
+}
 done_testing();
 
 exit 0;