diff options
| -rw-r--r-- | challenge-326/mark-anderson/raku/ch-1.raku | 22 | ||||
| -rw-r--r-- | challenge-326/mark-anderson/raku/ch-2.raku | 6 |
2 files changed, 28 insertions, 0 deletions
diff --git a/challenge-326/mark-anderson/raku/ch-1.raku b/challenge-326/mark-anderson/raku/ch-1.raku new file mode 100644 index 0000000000..19205ecdad --- /dev/null +++ b/challenge-326/mark-anderson/raku/ch-1.raku @@ -0,0 +1,22 @@ +#!/usr/bin/env raku +use Test; + +is '2025-02-02'.Date.my-day-of-year, '2025-02-02'.Date.day-of-year; # 33 +is '2025-04-10'.Date.my-day-of-year, '2025-04-10'.Date.day-of-year; # 100 +is '2025-09-07'.Date.my-day-of-year, '2025-09-07'.Date.day-of-year; # 250 + +class Date::my-day-of-year +{ + use MONKEY-TYPING; + + augment class Date + { + method my-day-of-year + { + given self + { + $_ - "{.year}-01-01".Date + 1 + } + } + } +} diff --git a/challenge-326/mark-anderson/raku/ch-2.raku b/challenge-326/mark-anderson/raku/ch-2.raku new file mode 100644 index 0000000000..886a599291 --- /dev/null +++ b/challenge-326/mark-anderson/raku/ch-2.raku @@ -0,0 +1,6 @@ +#!/usr/bin/env raku +use Test; + +is-deeply (1,3,2,4).map({ $^b xx $^a }).flat, (3,4,4); +is-deeply (1,1,2,2).map({ $^b xx $^a }).flat, (1,2,2); +is-deeply (3,1,3,2).map({ $^b xx $^a }).flat, (1,1,1,2,2,2); |
