diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2020-03-09 17:51:35 +0100 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2020-03-09 17:51:35 +0100 |
| commit | 652204b578f2445451f77cd5c66fec70c71f6fe1 (patch) | |
| tree | 09ea43dde8b4994a99b4190ad0f055e8fc4d2d6c | |
| parent | 8b98f4380c8dab214a0209c52d106fcd9ca38f5e (diff) | |
| download | perlweeklychallenge-club-652204b578f2445451f77cd5c66fec70c71f6fe1.tar.gz perlweeklychallenge-club-652204b578f2445451f77cd5c66fec70c71f6fe1.tar.bz2 perlweeklychallenge-club-652204b578f2445451f77cd5c66fec70c71f6fe1.zip | |
Task 2 refactoring using reduction operator.
| -rw-r--r-- | challenge-051/luca-ferrari/raku/ch-2.p6 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-051/luca-ferrari/raku/ch-2.p6 b/challenge-051/luca-ferrari/raku/ch-2.p6 index 5b0bd5008d..631bb4437f 100644 --- a/challenge-051/luca-ferrari/raku/ch-2.p6 +++ b/challenge-051/luca-ferrari/raku/ch-2.p6 @@ -27,9 +27,9 @@ sub is-colorful( Int:D $number ) { # all the digits product %products{ [*] @digits }++; - # products of all sequences + # products of all sequences, use range and reduction operator for 0 .. @digits.elems - 2 { - %products{ @digits[ $_ ] * @digits[ $_ + 1 ] }++; + %products{ [*] @digits[ $_ .. $_ + @digits.elems - 2 ] }++; } |