Handle lists with ch-1.pl

1 files changed, 20 insertions, 16 deletions

diff --git a/challenge-084/jo-37/perl/ch-1.pl b/challenge-084/jo-37/perl/ch-1.pl
index f6277ee546..82e119b55e 100755
--- a/challenge-084/jo-37/perl/ch-1.pl
+++ b/challenge-084/jo-37/perl/ch-1.pl
@@ -1,27 +1,31 @@
 #!/usr/bin/perl
 
+use 5.012;
 use Test2::V0;
 use Math::Utils 'copysign';
 
-# Reverse the decimal representation of a given number into a signed
-# long (32-bit) value.  Return zero if the result does not fit.
+# Reverse the decimal representation of given numbers into signed
+# long (32-bit) values.  Return zero for a result not fitting.
+# This sub handles a list of numbers.
 sub reverse_l {
-	pop @{[map $_ * (unpack('l', pack 'l', $_) == $_),
-		map copysign(scalar(reverse abs int), $_), shift]};
+	map $_ * (unpack('l', pack 'l', $_) == $_),
+		map copysign(scalar(reverse abs int), $_), @_;
 }
 
-is reverse_l( 1234),          4321, 'Example 1';
-is reverse_l(-1234),         -4321, 'Example 2';
-is reverse_l( 1231230512),       0, 'Example 3';
-is reverse_l(-8463847412),  -2**31, 'negative limit';
-is reverse_l( 7463847412), 2**31-1, 'positive limit';
-is reverse_l(-9463847412),       0, 'below negative limit';
-is reverse_l( 8463847412),       0, 'above positive limit';
-is reverse_l( 074),              6, 'accept octal';
-is reverse_l( 470),             74, 'do not generate octal';
-is reverse_l( 0xf0),            42, 'accept hex';
-is reverse_l( 123.456),        321, 'ignore part after decimal point';
-is reverse_l(-0),                0, 'signless zero';
+is [reverse_l  1234],          [4321], 'Example 1';
+is [reverse_l -1234],         [-4321], 'Example 2';
+is [reverse_l  1231230512],       [0], 'Example 3';
+is [reverse_l -8463847412],  [-2**31], 'negative limit';
+is [reverse_l  7463847412], [2**31-1], 'positive limit';
+is [reverse_l -9463847412],       [0], 'below negative limit';
+is [reverse_l  8463847412],       [0], 'above positive limit';
+is [reverse_l  074],              [6], 'accept octal';
+is [reverse_l  470],             [74], 'do not generate octal';
+is [reverse_l  0xf0],            [42], 'accept hex';
+is [reverse_l  123.456],        [321], 'ignore part after decimal point';
+is [reverse_l -0],                [0], 'signless zero';
+is [reverse_l 1e9 + 2, -1e9 - 2, 1e9 + 3, -1e9 - 3],
+	[2e9 + 1, -2e9 - 1, 0, 0], 'list input';
 
 done_testing;