diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2024-01-08 13:54:47 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2024-01-08 13:54:47 +0000 |
| commit | 21209f0c085ea3916f95ba72f0f867dcae1343a7 (patch) | |
| tree | 1360f0b2b9087dba0dd058fdf5f755836ae8e56d | |
| parent | 2d8482e6a6c66e41be970509f8b1b25afe0df9aa (diff) | |
| download | perlweeklychallenge-club-21209f0c085ea3916f95ba72f0f867dcae1343a7.tar.gz perlweeklychallenge-club-21209f0c085ea3916f95ba72f0f867dcae1343a7.tar.bz2 perlweeklychallenge-club-21209f0c085ea3916f95ba72f0f867dcae1343a7.zip | |
Challenge 251 Solutions (Raku)
| -rw-r--r-- | challenge-251/mark-anderson/raku/ch-1.raku | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-251/mark-anderson/raku/ch-1.raku b/challenge-251/mark-anderson/raku/ch-1.raku index 6b938ecd27..59d0543404 100644 --- a/challenge-251/mark-anderson/raku/ch-1.raku +++ b/challenge-251/mark-anderson/raku/ch-1.raku @@ -7,5 +7,5 @@ is concat-val([1,2,10]), 112; sub concat-val(@a) { - [+] map { @a.shift ~ (@a.pop || Empty) }, ^(@a / 2) + sum do while @a { @a.shift ~ (@a.pop || Empty) } } |