1 files changed, 62 insertions, 0 deletions
diff --git a/challenge-322/pokgopun/python/ch-1.py b/challenge-322/pokgopun/python/ch-1.py
new file mode 100644
index 0000000000..5a01b7908d
--- /dev/null
+++ b/challenge-322/pokgopun/python/ch-1.py
@@ -0,0 +1,62 @@
+### https://theweeklychallenge.org/blog/perl-weekly-challenge-322/
+"""
+
+Task 1: String Format
+
+Submitted by: [45]Mohammad Sajid Anwar
+     __________________________________________________________________
+
+   You are given a string and a positive integer.
+
+   Write a script to format the string, removing any dashes, in groups of
+   size given by the integer. The first group can be smaller than the
+   integer but should have at least one character. Groups should be
+   separated by dashes.
+
+Example 1
+
+Input: $str = "ABC-D-E-F", $i = 3
+Output: "ABC-DEF"
+
+Example 2
+
+Input: $str = "A-BC-D-E", $i = 2
+Output: "A-BC-DE"
+
+Example 3
+
+Input: $str = "-A-B-CD-E", $i = 4
+Output: "A-BCDE"
+
+Task 2: Rank Array
+"""
+### solution by pokgopun@gmail.com
+
+def sf(string: str, n: int) -> str:
+    slt = ""
+    i = len(string)
+    l = 0
+    while i > 0:
+        i -= 1
+        if string[i] == "-":
+            continue
+        if l < n:
+            slt = string[i] + slt
+            l += 1
+        else:
+            slt = string[i] + "-" + slt
+            l = 1
+    return slt
+
+import unittest
+
+class TestSf(unittest.TestCase):
+    def test(self):
+        for (string,n), otpt in {
+                ("ABC-D-E-F", 3):"ABC-DEF",
+                ("A-BC-D-E", 2): "A-BC-DE",
+                ("-A-B-CD-E", 4): "A-BCDE",
+                }.items():
+            self.assertEqual(sf(string,n),otpt)
+
+unittest.main()