diff options
| -rw-r--r-- | challenge-332/ash/raku/ch-1.raku | 10 | ||||
| -rw-r--r-- | challenge-332/ash/raku/ch-2.raku | 10 |
2 files changed, 20 insertions, 0 deletions
diff --git a/challenge-332/ash/raku/ch-1.raku b/challenge-332/ash/raku/ch-1.raku new file mode 100644 index 0000000000..ff938e8b2c --- /dev/null +++ b/challenge-332/ash/raku/ch-1.raku @@ -0,0 +1,10 @@ +# Task 1 of the Weekly Challenge 332 +# https://theweeklychallenge.org/blog/perl-weekly-challenge-332/#TASK1 + +say bin-date('2025-07-26'); # 11111101001-111-11010 +say bin-date('2000-02-02'); # 11111010000-10-10 +say bin-date('2024-12-31'); # 11111101000-1100-11111 + +sub bin-date($date) { + return ($date.split('-').map: *.Int.base(2)).join('-'); +} diff --git a/challenge-332/ash/raku/ch-2.raku b/challenge-332/ash/raku/ch-2.raku new file mode 100644 index 0000000000..77a9000603 --- /dev/null +++ b/challenge-332/ash/raku/ch-2.raku @@ -0,0 +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 + +sub are-oll-letters-odd($str) { + return !($str.comb.Bag.first: *.value %% 2); +} |