diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-11-23 15:47:30 -0700 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-11-23 15:47:30 -0700 |
| commit | c5f691fd3ec23c4a0c8459d3504566eee3a6f865 (patch) | |
| tree | e22fddcb99374574de6975f4d1283e136a8c34ea | |
| parent | 11e8a25fd36566f94c79440c93ad2c3743221d72 (diff) | |
| download | perlweeklychallenge-club-c5f691fd3ec23c4a0c8459d3504566eee3a6f865.tar.gz perlweeklychallenge-club-c5f691fd3ec23c4a0c8459d3504566eee3a6f865.tar.bz2 perlweeklychallenge-club-c5f691fd3ec23c4a0c8459d3504566eee3a6f865.zip | |
initial
| -rw-r--r-- | challenge-088/mark-anderson/raku/ch-2.p6 | 8 |
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; |
