aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMark Anderson <mark@frontrangerunner.com>2020-11-23 15:47:30 -0700
committerMark Anderson <mark@frontrangerunner.com>2020-11-23 15:47:30 -0700
commitc5f691fd3ec23c4a0c8459d3504566eee3a6f865 (patch)
treee22fddcb99374574de6975f4d1283e136a8c34ea
parent11e8a25fd36566f94c79440c93ad2c3743221d72 (diff)
downloadperlweeklychallenge-club-c5f691fd3ec23c4a0c8459d3504566eee3a6f865.tar.gz
perlweeklychallenge-club-c5f691fd3ec23c4a0c8459d3504566eee3a6f865.tar.bz2
perlweeklychallenge-club-c5f691fd3ec23c4a0c8459d3504566eee3a6f865.zip
initial
-rw-r--r--challenge-088/mark-anderson/raku/ch-2.p68
1 files changed, 4 insertions, 4 deletions
diff --git a/challenge-088/mark-anderson/raku/ch-2.p6 b/challenge-088/mark-anderson/raku/ch-2.p6
index 1215e036e6..0c98107dd0 100644
--- a/challenge-088/mark-anderson/raku/ch-2.p6
+++ b/challenge-088/mark-anderson/raku/ch-2.p6
@@ -32,7 +32,7 @@ sub spiral(@step1) {
my @step3 = ([Z] @step2).reverse;
my @step4 = ([Z] @step3).reverse;
my @trips = [Z] @step1, @step2, @step3, @step4;
- my $elems = @matrix.elems * @matrix[0].elems;
+ my $elems = @step1.elems * @step1[0].elems;
my $c = 0;
my @result;
@@ -46,10 +46,10 @@ sub spiral(@step1) {
@result = (@result>>.Array).flat[^$elems];
# handle the case when matrix is 3 X 3, 5 X 5, 7 X 7
- # etc. where I can't seem to get the center element.
+ # etc. where I can't seem to get the center element :(
unless @result[*-1] {
- my $i = @matrix / 2;
- @result[*-1] = @matrix[$i][$i];
+ my $i = @step1 / 2;
+ @result[*-1] = @step1[$i][$i];
}
@result;