From bd9970453af9d7b5feca8a2be7646c30b358b1a5 Mon Sep 17 00:00:00 2001
From: 冯昶 <seaker@qq.com>
Date: Wed, 20 Oct 2021 13:30:06 +0800
Subject: challenge 132, task #1, raku solution

---
 challenge-132/feng-chang/raku/ch-1.raku | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100755 challenge-132/feng-chang/raku/ch-1.raku

diff --git a/challenge-132/feng-chang/raku/ch-1.raku b/challenge-132/feng-chang/raku/ch-1.raku
new file mode 100755
index 0000000000..cfdc079760
--- /dev/null
+++ b/challenge-132/feng-chang/raku/ch-1.raku
@@ -0,0 +1,11 @@
+#!/bin/env raku
+
+my method dstr(Date:D $dt: --> Str:D) {
+    $dt.Str.trans('-' => '/')
+}
+
+sub MAIN(Str:D $birth-date-str) {
+    my Date \birth-date = $birth-date-str.trans('/' => '-').Date;
+    my UInt \age = now.Date - birth-date;
+    put "{ (birth-date - age).&dstr }, { (now.Date + age).&dstr }";
+}
-- 
cgit