diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2024-03-18 19:01:05 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2024-03-18 19:01:05 +0000 |
| commit | 3f750ff9282194b6a8d05a364f597b898ddeda35 (patch) | |
| tree | d12a7b003ca0f01a225e395ea1f04a446f408ac8 | |
| parent | 872147a579fd1a99d43d30adb88ed091445c909d (diff) | |
| download | perlweeklychallenge-club-3f750ff9282194b6a8d05a364f597b898ddeda35.tar.gz perlweeklychallenge-club-3f750ff9282194b6a8d05a364f597b898ddeda35.tar.bz2 perlweeklychallenge-club-3f750ff9282194b6a8d05a364f597b898ddeda35.zip | |
ch-2.raku do-over
| -rw-r--r-- | challenge-261/mark-anderson/raku/ch-2.raku | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/challenge-261/mark-anderson/raku/ch-2.raku b/challenge-261/mark-anderson/raku/ch-2.raku index f265b8f7e9..66ad0a3e9f 100644 --- a/challenge-261/mark-anderson/raku/ch-2.raku +++ b/challenge-261/mark-anderson/raku/ch-2.raku @@ -7,6 +7,7 @@ is multiply-by-two([5,6,7], 2), 2; sub multiply-by-two(@a, $s) { - my $seq := $s, $s*2, $s*4, $s*6...@a.max; + + my $seq := $s, $s*2, $s*4, $s*8...@a.max; $s + (@a (&) $seq).keys.sum } |