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

Branch for challenge 070

1 files changed, 15 insertions, 0 deletions

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)