Merge pull request #1968 from waltman/branch-for-challenge-070

Branch for challenge 070

3 files changed, 30 insertions, 1 deletions

diff --git a/challenge-070/walt-mankowski/perl/ch-2.pl b/challenge-070/walt-mankowski/perl/ch-2.pl
index c908d9b6b1..98d26781f5 100644
--- a/challenge-070/walt-mankowski/perl/ch-2.pl
+++ b/challenge-070/walt-mankowski/perl/ch-2.pl
@@ -55,6 +55,6 @@ for my $i (3..$n) {
 say "@S";
 
 sub gray_code($n, @S) {
-    my @S2 = map { "1$_" } reverse map { scalar sprintf "%.*b", $n-1, $_ } @S;
+    my @S2 = map { "1$_" } reverse map { sprintf "%.*b", $n-1, $_ } @S;
     return @S, map { eval "0b$_" } @S2;
 }
diff --git a/challenge-070/walt-mankowski/python/ch-1.py b/challenge-070/walt-mankowski/python/ch-1.py
new file mode 100644
index 0000000000..b3863d1e45
--- /dev/null
+++ b/challenge-070/walt-mankowski/python/ch-1.py
@@ -0,0 +1,15 @@
+from sys import argv
+
+# https://perlweeklychallenge.org/blog/perl-weekly-challenge-070/
+
+s, c, o = argv[1:4]
+S = list(s)
+c = int(c)
+o = int(o)
+n = len(s)
+
+for i in range(1, c+1):
+    S[i%n], S[(i+o)%n] = S[(i+o)%n], S[i%n]
+
+s = "".join(S)
+print(s)
diff --git a/challenge-070/walt-mankowski/python/ch-2.py b/challenge-070/walt-mankowski/python/ch-2.py
new file mode 100644
index 0000000000..be0f8ac2d3
--- /dev/null
+++ b/challenge-070/walt-mankowski/python/ch-2.py
@@ -0,0 +1,14 @@
+from sys import argv
+
+n = int(argv[1])
+S = [0, 1, 3, 2]
+
+def gray_code(n, S):
+    fmt = f"0{n-1}b"
+    S2 = [eval(f"0b1{x}") for x in [f"{x:{fmt}}" for x in S][::-1]]
+    return S + S2
+
+for i in range(3, n+1):
+    S = gray_code(i, S)
+
+print(S)