diff options
| author | Andrew Shitov <mail@andreyshitov.com> | 2025-10-06 09:32:41 +0200 |
|---|---|---|
| committer | Andrew Shitov <mail@andreyshitov.com> | 2025-10-06 09:32:41 +0200 |
| commit | 96232c9d631d7c39038fca0c09bfe970351c3c17 (patch) | |
| tree | 8533018ece3c2719fb9edcab741efef8ac5110db | |
| parent | 0c79a079ca55e5e06e3bf693fb4c3e61b3b70c7c (diff) | |
| download | perlweeklychallenge-club-96232c9d631d7c39038fca0c09bfe970351c3c17.tar.gz perlweeklychallenge-club-96232c9d631d7c39038fca0c09bfe970351c3c17.tar.bz2 perlweeklychallenge-club-96232c9d631d7c39038fca0c09bfe970351c3c17.zip | |
update
| -rw-r--r-- | challenge-342/ash/raku/ch-1.raku | 20 |
1 files changed, 7 insertions, 13 deletions
diff --git a/challenge-342/ash/raku/ch-1.raku b/challenge-342/ash/raku/ch-1.raku index e7ad930581..c02e41c892 100644 --- a/challenge-342/ash/raku/ch-1.raku +++ b/challenge-342/ash/raku/ch-1.raku @@ -17,20 +17,14 @@ sub balance-string($s) { # It's only possible to balance a string if # the number of digits and letters differs by not more than 2. - if ((@digits.elems - @letters.elems).abs > 1) { - return ''; - } - elsif (@digits.elems == @letters.elems) { - # Assuming that alphabetical sort puts digits first - return [~] (@digits Z~ @letters); - } + return '' if (@digits.elems - @letters.elems).abs > 1; + + # Assuming that alphabetical sort puts digits first + return [~] (@digits Z~ @letters) if @digits.elems == @letters.elems; # Now the two cases where the size is different, but the # difference of sizes is always 1 here. So appending the extra character. - elsif (@digits.elems > @letters.elems) { - return ([~] (@digits Z~ @letters)) ~ @digits[*-1]; - } - else { - return ([~] (@letters Z~ @digits)) ~ @letters[*-1]; - } + return ([~] (@digits Z~ @letters)) ~ @digits[*-1] if @digits.elems > @letters.elems; + + return ([~] (@letters Z~ @digits)) ~ @letters[*-1]; } |
