From 02e10549a4bfa1e9af8fbc818bd0dc78dae51024 Mon Sep 17 00:00:00 2001
From: Walt Mankowski <waltman@pobox.com>
Date: Tue, 21 Jul 2020 11:14:29 -0400
Subject: python code for challenge 70

---
 challenge-070/walt-mankowski/python/ch-1.py | 15 +++++++++++++++
 challenge-070/walt-mankowski/python/ch-2.py | 14 ++++++++++++++
 2 files changed, 29 insertions(+)
 create mode 100644 challenge-070/walt-mankowski/python/ch-1.py
 create mode 100644 challenge-070/walt-mankowski/python/ch-2.py

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)
-- 
cgit 


From a85885eff87ca80ae477117a7d1c1e454cde7416 Mon Sep 17 00:00:00 2001
From: Walt Mankowski <waltman@pobox.com>
Date: Tue, 21 Jul 2020 11:19:07 -0400
Subject: removed unneeded "scalar"

---
 challenge-070/walt-mankowski/perl/ch-2.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
 }
-- 
cgit