diff options
| -rw-r--r-- | challenge-332/ash/raku/ch-2.raku | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/challenge-332/ash/raku/ch-2.raku b/challenge-332/ash/raku/ch-2.raku index 77a9000603..5ba0a04a01 100644 --- a/challenge-332/ash/raku/ch-2.raku +++ b/challenge-332/ash/raku/ch-2.raku @@ -1,10 +1,10 @@ # Task 2 of the Weekly Challenge 332 # https://theweeklychallenge.org/blog/perl-weekly-challenge-332/#TASK2 -say are-oll-letters-odd('weekly'); # False -say are-oll-letters-odd('perl'); # True -say are-oll-letters-odd('challenge'); # False +say are-all-letters-odd('weekly'); # False +say are-all-letters-odd('perl'); # True +say are-all-letters-odd('challenge'); # False -sub are-oll-letters-odd($str) { +sub are-all-letters-odd($str) { return !($str.comb.Bag.first: *.value %% 2); } |