diff options
| -rwxr-xr-x | challenge-268/robbie-hatley/perl/ch-1.pl | 16 | ||||
| -rwxr-xr-x | challenge-268/robbie-hatley/perl/ch-2.pl | 14 |
2 files changed, 16 insertions, 14 deletions
diff --git a/challenge-268/robbie-hatley/perl/ch-1.pl b/challenge-268/robbie-hatley/perl/ch-1.pl index 73353171fb..ccf51e42d6 100755 --- a/challenge-268/robbie-hatley/perl/ch-1.pl +++ b/challenge-268/robbie-hatley/perl/ch-1.pl @@ -56,7 +56,7 @@ that common value is our "magic number", otherwise return "none": IO NOTES: Input is via either built-in variables or via @ARGV. If using @ARGV, provide one argument which must be a single-quoted array of arrays of pairs of same-size arrays of integers, in proper Perl syntax, like so: -./ch-1.pl '([[1,2,3],[7,8,9]],[[3,8],[9,4,2]],[[3,8,17],[4,5,72]])' +./ch-1.pl '([[3,8],[9,4,2]],[[3,8,17],[4,5,72]],[[1,2,3],[7,9,8]])' Output is to STDOUT and will be each input followed by the corresponding output. @@ -66,11 +66,11 @@ Output is to STDOUT and will be each input followed by the corresponding output. # PRAGMAS, MODULES, AND SUBS: use v5.38; - use List::MoreUtils 'zip6'; + use List::SomeUtils 'pairwise'; use List::Util 'all'; - # Is a given scalar a reference to a Pair Of Same-Size Arrays Of Numbers? - sub is_possaon ($matref) { + # Is a given scalar a reference to a Pair Of Same-Size Arrays Of Integers? + sub is_possaoi ($matref) { 'ARRAY' ne ref $matref and return 0; 2 != scalar(@$matref) and return 0; scalar(@{$$matref[0]}) != scalar(@{$$matref[1]}) and return 0; @@ -82,12 +82,12 @@ Output is to STDOUT and will be each input followed by the corresponding output. return 1; } - # Determine "magic number" (if any) for given matrix: + # Return the "magic number" (if any) of a matrix: sub magic ($matref) { my @row1 = sort {$a<=>$b} @{$$matref[0]}; my @row2 = sort {$a<=>$b} @{$$matref[1]}; - my @diff = map {$$_[1]-$$_[0]} zip6 @row1, @row2; - all {$diff[0] == $_} @diff and return $diff[0] + my @diff = pairwise {$b-$a} @row1, @row2; + all {$_ == $diff[0]} @diff and return $diff[0] or return 'none'; } @@ -123,7 +123,7 @@ for my $matref (@matrices) { say ''; say 'Matrix = '; say('[',join(', ', @$_),']') for @$matref; - !is_possaon($matref) + !is_possaoi($matref) and say 'Matrix is not a pair of same-size arrays of integers.' and say 'Moving on to next matrix.' and next; diff --git a/challenge-268/robbie-hatley/perl/ch-2.pl b/challenge-268/robbie-hatley/perl/ch-2.pl index 690d1bb287..203785ce6f 100755 --- a/challenge-268/robbie-hatley/perl/ch-2.pl +++ b/challenge-268/robbie-hatley/perl/ch-2.pl @@ -61,20 +61,22 @@ Output is to STDOUT and will be each input followed by the corresponding output. # PRAGMAS, MODULES, AND SUBS: use v5.38; + use List::Util 'pairmap'; - # Is a given scalar a reference to an Array Of Integers? - sub is_aoi ($aref) { + # Is a given scalar a reference to an Even-Sized Array Of Integers? + sub is_esaoi ($aref) { 'ARRAY' ne ref $aref and return 0; + 0 != scalar(@$aref)%2 and return 0; for my $x (@$aref) { $x !~ m/^-[1-9]\d*$|^0$|^[1-9]\d*$/ and return 0; } return 1; } - # Reorder array of ints into a zigzagging ascending stairway: + # Return stairway sort of an array: sub stairway (@array) { my @sorted = sort {$a<=>$b} @array; - map {@sorted[2*$_+1,2*$_]} 0..($#sorted-1)/2; + pairmap {$b,$a} @sorted; } # ------------------------------------------------------------------------------------------------------------ @@ -99,8 +101,8 @@ my @arrays = @ARGV ? eval($ARGV[0]) : for my $aref (@arrays) { say ''; say 'Array = (', join(', ', @$aref), ')'; - !is_aoi($aref) - and say 'Error: Not an array of integers.' + !is_esaoi($aref) + and say 'Error: Not an even-sized array of integers.' and say 'Moving on to next array.' and next; say 'Stairway = (', join(', ', stairway(@$aref)), ')'; |