- Added solutions by Shahed Nooshmand.

3 files changed, 16 insertions, 0 deletions

diff --git a/challenge-055/shahed-nooshmand/blog.txt b/challenge-055/shahed-nooshmand/blog.txt
new file mode 100644
index 0000000000..333774ba45
--- /dev/null
+++ b/challenge-055/shahed-nooshmand/blog.txt
@@ -0,0 +1 @@
+https://rafraichisso.ir/2020/04/11/pwc-55
diff --git a/challenge-055/shahed-nooshmand/raku/ch-1.p6 b/challenge-055/shahed-nooshmand/raku/ch-1.p6
new file mode 100644
index 0000000000..966f6fef5e
--- /dev/null
+++ b/challenge-055/shahed-nooshmand/raku/ch-1.p6
@@ -0,0 +1,14 @@
+#!/usr/bin/env raku
+
+multi postcircumfix:<[ ]> (Str $_, Range \ran) { .substr(ran) }
+
+my $num = “010”;
+my %flips;
+
+for ^$num.chars -> $L {
+    for $L..^$num.chars -> $R {
+    	%flips{“$L\t$R”} = +($num[^$L] ~ (TR/01/10/ given $num[$L..$R]) ~ $num[$R^..*]).comb.grep: 1
+    }
+}
+
+say .key for %flips.grep: *.value == max %flips.values
diff --git a/challenge-055/shahed-nooshmand/raku/ch-2.sh b/challenge-055/shahed-nooshmand/raku/ch-2.sh
new file mode 100644
index 0000000000..1850dae331
--- /dev/null
+++ b/challenge-055/shahed-nooshmand/raku/ch-2.sh
@@ -0,0 +1 @@
+raku -e '.put for (my \N = [1, 2, 3, 4]).permutations.grep: { all do $_[0](|$_[1]) for |(&infix:«≥», &infix:«≤») xx * Z ($^n[^(*−1)] Z $^n[1..*]) }'