- Added solutions by Shahed Nooshmand.

3 files changed, 28 insertions, 0 deletions

diff --git a/challenge-064/shahed-nooshmand/blog.txt b/challenge-064/shahed-nooshmand/blog.txt
new file mode 100644
index 0000000000..f82720c09d
--- /dev/null
+++ b/challenge-064/shahed-nooshmand/blog.txt
@@ -0,0 +1 @@
+https://rafraichisso.ir/2020/06/14/pwc-64
diff --git a/challenge-064/shahed-nooshmand/raku/ch-1.p6 b/challenge-064/shahed-nooshmand/raku/ch-1.p6
new file mode 100644
index 0000000000..ee1a40727d
--- /dev/null
+++ b/challenge-064/shahed-nooshmand/raku/ch-1.p6
@@ -0,0 +1,26 @@
+#!/usr/bin/env raku
+
+my @matrix = [1, 2, 3],
+             [4, 5, 6],
+             [7, 8, 9];
+say "{.sum} ({.join: ' → '})" given min paths(@matrix, 0, 0), by => ∑
+
+
+sub paths(@matrix, $i, $j) {
+    my @paths;
+    my $pivot = @matrix[$i][$j];
+    my $right = @matrix[$i][$j+1];
+    my $down  = @matrix[$i+1][$j];
+
+    with $right {
+    	@paths.push: |paths(@matrix, $i, $j + 1).map: { $pivot, |$_ }
+    }
+    with $down {
+    	@paths.push: |paths(@matrix, $i + 1, $j).map: { $pivot, |$_ }
+    }
+    without $right // $down {
+    	return $pivot
+    }
+
+    return @paths
+}
diff --git a/challenge-064/shahed-nooshmand/raku/ch-2.sh b/challenge-064/shahed-nooshmand/raku/ch-2.sh
new file mode 100644
index 0000000000..9f4c3a01f3
--- /dev/null
+++ b/challenge-064/shahed-nooshmand/raku/ch-2.sh
@@ -0,0 +1 @@
+say $S ~~ m«^(@W)+$» ?? $0 !! 0