From e1e3d0ce9321284f055f30a70e281b24d29fca4b Mon Sep 17 00:00:00 2001 From: Mark Anderson Date: Sat, 26 Jul 2025 23:10:02 +0000 Subject: Challenge 332 Solutions (Raku) --- challenge-332/mark-anderson/raku/ch-1.raku | 11 +++++++++++ challenge-332/mark-anderson/raku/ch-2.raku | 11 +++++++++++ 2 files changed, 22 insertions(+) create mode 100644 challenge-332/mark-anderson/raku/ch-1.raku create mode 100644 challenge-332/mark-anderson/raku/ch-2.raku diff --git a/challenge-332/mark-anderson/raku/ch-1.raku b/challenge-332/mark-anderson/raku/ch-1.raku new file mode 100644 index 0000000000..cb06bd6bb2 --- /dev/null +++ b/challenge-332/mark-anderson/raku/ch-1.raku @@ -0,0 +1,11 @@ +#!/usr/bin/env raku +use Test; + +is binary-date("2025-07-26"), "11111101001-111-11010"; +is binary-date("2000-02-02"), "11111010000-10-10"; +is binary-date("2024-12-31"), "11111101000-1100-11111"; + +sub binary-date($date) +{ + $date.split("-").fmt("%b", "-") +} diff --git a/challenge-332/mark-anderson/raku/ch-2.raku b/challenge-332/mark-anderson/raku/ch-2.raku new file mode 100644 index 0000000000..160c11dba1 --- /dev/null +++ b/challenge-332/mark-anderson/raku/ch-2.raku @@ -0,0 +1,11 @@ +#!/usr/bin/env raku +use Test; + +nok odd-letters("weekly"); +ok odd-letters("perl"); +nok odd-letters("challenge"); + +sub odd-letters($str) +{ + so $str.comb.Bag.values.all.ends-with(any 1,3,5,7,9) +} -- cgit