diff options
| -rw-r--r-- | challenge-332/mark-anderson/raku/ch-1.raku | 11 | ||||
| -rw-r--r-- | challenge-332/mark-anderson/raku/ch-2.raku | 11 |
2 files changed, 22 insertions, 0 deletions
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) +} |