- Added solutions by Shahed Nooshmand.

3 files changed, 25 insertions, 0 deletions

diff --git a/challenge-063/shahed-nooshmand/blog.txt b/challenge-063/shahed-nooshmand/blog.txt
new file mode 100644
index 0000000000..154e1ee384
--- /dev/null
+++ b/challenge-063/shahed-nooshmand/blog.txt
@@ -0,0 +1 @@
+https://rafraichisso.ir/2020/06/06/pwc-63
diff --git a/challenge-063/shahed-nooshmand/raku/ch-1.p6 b/challenge-063/shahed-nooshmand/raku/ch-1.p6
new file mode 100644
index 0000000000..b39fdc2917
--- /dev/null
+++ b/challenge-063/shahed-nooshmand/raku/ch-1.p6
@@ -0,0 +1,11 @@
+#!/usr/bin/env perl6
+
+use v6.d;
+
+sub MAIN(Str $string, Regex $regex) {
+    last-word($string, $regex);
+}
+
+sub last-word(Str $string, Regex $regex) {
+    .return when $regex for $string.words.reverse
+}
diff --git a/challenge-063/shahed-nooshmand/raku/ch-2.p6 b/challenge-063/shahed-nooshmand/raku/ch-2.p6
new file mode 100644
index 0000000000..93038e9545
--- /dev/null
+++ b/challenge-063/shahed-nooshmand/raku/ch-2.p6
@@ -0,0 +1,13 @@
+#!/usr/bin/env raku
+
+say find-r “xyxyxy”;
+
+sub find-r($string) {
+    my $p = find-p $string;
+    .return when $_ × ($_ + 1) ÷ 2 %% $p for 1..∞
+}
+
+sub find-p($string) {
+    my $n = chars $string;
+    .return when $string.substr(^$_) x $n ÷ $_ eq $string for |(1..$n ÷ 2).grep($n %% *), $n
+}