diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-11-23 17:16:41 -0700 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-11-23 17:16:41 -0700 |
| commit | 4553f61ddfe9b5ed152da2479e7e637f4b44d0ed (patch) | |
| tree | 93b587fc9370ef26350acad65bad82bafad113fc | |
| parent | 7b0e7c6f6fae54d73342e4337bb51d118007e073 (diff) | |
| download | perlweeklychallenge-club-4553f61ddfe9b5ed152da2479e7e637f4b44d0ed.tar.gz perlweeklychallenge-club-4553f61ddfe9b5ed152da2479e7e637f4b44d0ed.tar.bz2 perlweeklychallenge-club-4553f61ddfe9b5ed152da2479e7e637f4b44d0ed.zip | |
initial
| -rw-r--r-- | challenge-088/mark-anderson/raku/ch-1.p6 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-088/mark-anderson/raku/ch-1.p6 b/challenge-088/mark-anderson/raku/ch-1.p6 index 10ac6b394d..64036b5b28 100644 --- a/challenge-088/mark-anderson/raku/ch-1.p6 +++ b/challenge-088/mark-anderson/raku/ch-1.p6 @@ -14,5 +14,5 @@ multi MAIN { } sub array-of-product(@n) { - (^@n).map(-> $i { [*] @n[^$i, $i+1..@n.end].flat }).Array; + @n.keys.map(-> $i { [*] @n[^$i, $i+1..@n.end].flat }).Array; } |