Merge pull request #4949 from wambash/challenge-week-132

solution week 131-1

1 files changed, 19 insertions, 0 deletions

diff --git a/challenge-132/wambash/raku/ch-1.raku b/challenge-132/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..0e370322af
--- /dev/null
+++ b/challenge-132/wambash/raku/ch-1.raku
@@ -0,0 +1,19 @@
+#!/usr/bin/env raku
+
+sub mirror-dates (Date() $birth, Date() :$today = Date.today ) {
+    my $age = $today - $birth;
+    $birth - $age, $today + $age
+}
+
+
+multi MAIN ($birth, :$today = Date.today) {
+    put mirror-dates $birth, :$today
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is mirror-dates( '2021-09-18', :today<2021-09-22> ), <2021-09-14 2021-09-26>;
+    is mirror-dates( '1975-10-10', :today<2021-09-22> ), <1929-10-27 2067-09-05>;
+    is mirror-dates( '1967-02-14', :today<2021-09-22> ), <1912-07-08 2076-04-30>;
+    done-testing
+}