diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2022-12-19 11:21:02 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2022-12-19 11:21:02 +0000 |
| commit | b62bc69dd1a6d74e70775b4d6bbbe78ce1a4c7c8 (patch) | |
| tree | f9420e24c1bfd5f63c5d25fcde2f63677e301695 | |
| parent | 7d898e4caefaf4233111fdbe7e60ead3c50c6406 (diff) | |
| download | perlweeklychallenge-club-b62bc69dd1a6d74e70775b4d6bbbe78ce1a4c7c8.tar.gz perlweeklychallenge-club-b62bc69dd1a6d74e70775b4d6bbbe78ce1a4c7c8.tar.bz2 perlweeklychallenge-club-b62bc69dd1a6d74e70775b4d6bbbe78ce1a4c7c8.zip | |
Challenge 196 Solutions (Raku)
| -rw-r--r-- | challenge-196/mark-anderson/raku/ch-2.raku | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-196/mark-anderson/raku/ch-2.raku b/challenge-196/mark-anderson/raku/ch-2.raku index 64ead6051b..763f3ed2f3 100644 --- a/challenge-196/mark-anderson/raku/ch-2.raku +++ b/challenge-196/mark-anderson/raku/ch-2.raku @@ -18,11 +18,11 @@ sub range-list(+$list) else { - take $h, $t; + take $h, $t if $h < $t; $t++; - $h = $t; + $h = $t } } - $list[ $a.grep({ .head < .tail }) ] + $list[$a] } |