aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndrew Shitov <mail@andreyshitov.com>2025-10-06 09:32:41 +0200
committerAndrew Shitov <mail@andreyshitov.com>2025-10-06 09:32:41 +0200
commit96232c9d631d7c39038fca0c09bfe970351c3c17 (patch)
tree8533018ece3c2719fb9edcab741efef8ac5110db
parent0c79a079ca55e5e06e3bf693fb4c3e61b3b70c7c (diff)
downloadperlweeklychallenge-club-96232c9d631d7c39038fca0c09bfe970351c3c17.tar.gz
perlweeklychallenge-club-96232c9d631d7c39038fca0c09bfe970351c3c17.tar.bz2
perlweeklychallenge-club-96232c9d631d7c39038fca0c09bfe970351c3c17.zip
update
-rw-r--r--challenge-342/ash/raku/ch-1.raku20
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];
}