diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2024-03-18 22:28:57 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2024-03-18 22:28:57 +0000 |
| commit | f569c97f29246520fcbaa56bf92f76b5de9638ff (patch) | |
| tree | e20e8b4847d7242a23ee9fd5e8652be1b00fb91f | |
| parent | 384c8b1ef7c1709247a1b4cf7c26e82682079f26 (diff) | |
| download | perlweeklychallenge-club-f569c97f29246520fcbaa56bf92f76b5de9638ff.tar.gz perlweeklychallenge-club-f569c97f29246520fcbaa56bf92f76b5de9638ff.tar.bz2 perlweeklychallenge-club-f569c97f29246520fcbaa56bf92f76b5de9638ff.zip | |
ch-2.raku again
| -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 bc208754a1..2eb6d5830c 100644 --- a/challenge-261/mark-anderson/raku/ch-2.raku +++ b/challenge-261/mark-anderson/raku/ch-2.raku @@ -18,5 +18,6 @@ sub multiply-by-two(@a, $s) take $++ } - $s + sum @r[@i] + return $s unless @i; + return @r[@i.tail] * 2 } |
