diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2024-01-15 22:18:41 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2024-01-15 22:18:41 +0000 |
| commit | 10d7dc1c81d1299bee405a2059f72c85f8c9b9eb (patch) | |
| tree | 2a16c6cc42096fa264b580d76d5eeb7935bbfb89 | |
| parent | 429584069ee41376d181a37fe6597c1c72b8d5d9 (diff) | |
| download | perlweeklychallenge-club-10d7dc1c81d1299bee405a2059f72c85f8c9b9eb.tar.gz perlweeklychallenge-club-10d7dc1c81d1299bee405a2059f72c85f8c9b9eb.tar.bz2 perlweeklychallenge-club-10d7dc1c81d1299bee405a2059f72c85f8c9b9eb.zip | |
Challenge 252 Solutions (Raku)
| -rw-r--r-- | challenge-252/mark-anderson/raku/ch-2.raku | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-252/mark-anderson/raku/ch-2.raku b/challenge-252/mark-anderson/raku/ch-2.raku index 6c72b3aae2..873a46dbdd 100644 --- a/challenge-252/mark-anderson/raku/ch-2.raku +++ b/challenge-252/mark-anderson/raku/ch-2.raku @@ -13,5 +13,5 @@ multi uniq-sum-zero($n where 1) { (0,) } multi uniq-sum-zero($n where * > 1) { my $i = $n div 2; - (-$i,-$i+1...-1,1,2,3...$i,0)[^$n] + (-$i...-1,1,2,3...$i,0)[^$n] } |